Question

Напишите программу.Задано число x.Если число четное , то нарисовать на экране зеленый прямоугольник, а если нечетное,то красный круг.

Answer 1

program znanija;

uses graphabc;

var

x:integer;

begin

SetPenWidth(3);

readln(x);

if x mod 2 = 0 then

begin

SetPenColor(clGreen);

rectangle(130,120,300,300);

end

else

begin

SetPenColor(clRed);

circle(185,200,100);

end;

end.