program figyri;
uses crt,graphABC;
var xc,yc:integer;
m:integer;
begin
xc:=windowwidth div 2;
yc:=windowheight div 2;
repeat
write ('Введите число');
read (m);
if m>2 then
begin
setpencolor(clGreen);
rectangle(xc-100,yc-100,xc+100,yc+100);
floodfill(xc,yc,clGreen);
readkey;
end;
if m<2 then </p>
begin
setpencolor(clRed);
line (xc-100,yc+50,xc+100,yc+50);
line (xc+100,yc+50,xc,yc-100);
line(xc,yc-100,xc-100,yc+50);
floodfill(xc,yc,clRed);
readkey;
end;
if m mod 2=0 then
begin
setpencolor(clBlue);
circle (xc,yc,100);
floodfill(xc,yc,clBlue);
readkey;
end;
until not(m in [1..4]);
end.
как то так
если введенное число больше двух, то квадрат
если меньше, то треугольник
если кратно, то круг
можно выбрать по разному, будет ли введенное число больше или меньше какого то числа, будет ли оно положительным или отрицательным и т.д