Вопрос по информатике:

СРОЧНО ЗАДАНИЕ НА 30 БАЛЛОВ!
На PASCAL нужно разработать программу которая выводит формулы площади в зависимости от вида фигур!

Блиин, прошу прощение а можно еще Алгоритм??

Начало1. Вывести список фигур2. Запросить номер фигуры3. Если номер фигуры 1То вывести S = a^24. Если номер фигуры 2То вывести S = a*b5. Если номер фигуры 3То вывести S = √(p·(p-a)·(p-b)·(p-c))6. Если номер фигуры 4То вывести S = πR^2Конец.

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.