Безотлагательно ЗАДАНИЕ НА 30 БАЛЛОВ!На PASCAL необходимо разработать программку которая выводит

program raf105;

var figur:integer;

begin

writeln('1. Квадрат');

writeln('2. Прямоугольник');

writeln('3. Треугольник');

writeln('4. Круг');

write('Введите номер фигуры: ');

readln(figur);

if figur = 1

 then writeln('S = a^2');

if figur = 2

 then writeln('S = a*b');

if figur = 3

 then writeln('S = (p(p-a)(p-b)(p-c))');

if figur = 4

 then writeln('S = R^2');

end.