На 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.