Програмування Pascal

ch:=readkey;

case ch of

#80: begin

lnum:=pnum;

pnum:=pnum+1;

if pnum=6 then pnum:=1;

ramka;

end;

#72: begin

lnum:=pnum;

pnum:=pnum-1;

if pnum=0 then pnum:=5;

ramka;

end;

end;

end;

#13: begin

if pnum=1 then zad1;

if pnum=2 then zad2;

if pnum=3 then zad3;

if pnum=4 then about;

if pnum=5 then done:=true;

end;

#27: done:=true; { Pressing ESC }

#3: done:=true; { Pressing Ctrl+C }

end;

until done;

closegraph;

write ('До побачення!!!');

end.