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

end;

end;

#27: exit:=true;

#13: begin

shoot:=true;

setcolor (black);

line (33,195,33,185);

circle (33,183,1);

circle (33,183,2);

setcolor (yellow);

line (33,195,37,190);

end;

' ': begin

shoot:=true;

setcolor (black);

line (33,195,33,185);

circle (33,183,1);

circle (33,183,2);

setcolor (yellow);

line (33,195,37,190);

end;

end;

until shoot or exit;

setcolor (0);

bar (12,20,150,40);