Rozvrch

program rozvrch;
{$APPTYPE CONSOLE}
uses
  SysUtils;

var d:char;
begin
{ TODO -oUser -cConsole Main : Insert code here }
write('Zadaj cislo dna v tyzdni: ');
readln(d);
  case d of
    '1':writeln('ZKF,SJL,PWD,RUJ,ANJ,CVM');
    '2':writeln('INF,KAJ,ADK,SJL,ANJ,DEJ,EFH');
    '3':writeln('MAT,CVM,SJL,RUJ,PWD,OBN,ADK');
    '4':writeln('ANJ,NBV,PWD,MAT,FYZ,ZKF,TSV');
    '5':writeln('RUJ,KAJ,INF,TSV,EFH,CVI');
    '6':writeln('Dnes je Sobota!');
    '7':writeln('Dnes je Nedela!');
    else writeln('NESPRAVNA KLAVESA!');
  end;
readln
end.