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

curpos (xcur,ycur+1,xcur,ycur);

end;

end;

end;

' ': begin

if matr[xcur,ycur]=0 then

matr[xcur,ycur]:=1

else matr[xcur,ycur]:=0;

printmatrix;

end;

#27: exit:=true;

#13: begin

count;

exit:=true;

readkey;

end;

end;

until exit;

draw;

ramka;

end;

{************** Основная процедура задания №2 ****************}

procedure zad2;

var st:string;

shoot,exit:boolean;