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

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

uses GraphABC;var s:string;beginwriteln('Введите название фигуры (круг или треугольник):');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.