Написать программу на Паскаль

Ввести с клавиатуры название фигуры, которую надо построить: круг или треугольник. Нарисовать соответствующую фигуру синего цвета на белом фоне. Использовать оператор условия.

Uses GraphABC;

var s:string;

begin

writeln ('Введите название фигуры (круг или треугольник) : ');

readln (s);

setwindowsize (640,480);

setwindowtitle (s);

setpencolor (clBlue);

setpenwidth (4);

if s='круг' then

circle (300,200,120)

else begin

Line (300,50,30,400);

Line (30,400,570,400);

Line (570,400,300,50);

end;

end.