uses graphabc;
var
x: integer;
begin
setwindowsize(200, 200);
read(x);
if (x mod 3 = 0) then
setbrushcolor(clgreen);
fillcircle(100, 100, 60);
end
else
setbrushcolor(clyellow);
fillrectangle(150, 150, 50, 50);
end;
end.
uses graphabc;
var
x: integer;
begin
setwindowsize(200, 200);
read(x);
if (x mod 3 = 0) then
begin
setbrushcolor(clgreen);
fillcircle(100, 100, 60);
end
else
begin
setbrushcolor(clyellow);
fillrectangle(150, 150, 50, 50);
end;
end.