program znanija;
uses graphabc;
var
x:integer;
begin
SetPenWidth(3);
readln(x);
if x mod 2 = 0 then
SetPenColor(clGreen);
rectangle(130,120,300,300);
end
else
SetPenColor(clRed);
circle(185,200,100);
end;
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.