circle or square.pas

//<10 êðóã
//>10 êâàäðàò
uses graphabc;
var a: integer;
begin
writeln('Enter integer');
readln(a);
SetPenColor(clRandom);
if (a<=10) then Circle(320,240,a);
if (a>10) then Rectangle(320-a,240-a,320+a,240+a);
end.