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

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;

tx,ty,sx,len,angle,speed,maxx,x,y,e,x1,y1:integer;

t,an,vx,vy,xx,yy:real;

label 2;