Вопрос Задание по информатике, на долбаном паскале

[Planeta]

составьте программу, которая запрашивает число и рисует

- желтый прямоугольник, если введёное число четное

-красный круг, если введенное чило нечетное

-прямую линию если введёное число 0

 

[Vasyasa]

uses GraphABC;

var
x: integer;

begin
read(x);
if x = 0 then line(200, 200, 400, 200)
else if odd(x) then
begin
setpencolor(clred);
circle(200, 200, 100)
end
else
begin
setpencolor(clyellow);
rectangle(200, 200, 400, 300)
end;
end.

 

[смайлик]

program DrawShape;

uses Graph;

var
gd, gm: smallint;
num: integer;

begin
gd := Detect;
InitGraph(gd, gm, ''

writeln('Enter a number: '
readln(num);

if num = 0 then
begin
Line(getmaxx div 2, 0, getmaxx div 2, getmaxy);
end
else if num mod 2 = 0 then
begin
setfillstyle(1, yellow);
bar(100, 100, 200, 200);
end
else
begin
setfillstyle(1, red);
fillellipse(150, 150, 50, 50);
end;

readln;
closegraph;
end.

 

[skrepicoco21]

Фу паскаль миняща вырвет

 

[хантер]

вот пример http://www.soloby.ru/1203196/напишите-программу-нарисовать-прямоугольник-нечетное-красный