Методика підрахунку прямокутників різної форми

cleardevice;

maxx:=getmaxx;

pnum:=1;

lnum:=1;

draw;

repeat

ramka;

ch:=readkey;

case ch of

#0:begin

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;