Логотип
Скачать .pas

uses graphabc;
var x: integer;
begin
setwindowsize(300,300);
write('Введите x= ');
read(x);
if x mod 2=0 then
begin
rectangle(10,100,180,20);
floodfill(150,70,clGreen);
end
else
begin
circle(150,100,50);
floodfill(150,100,clRed);
end;
end.