составьте программу для вычисления площади геометрических фигур (PASCAL abc)

program ploshad;uses crt;var a,b,c:real;beginwrite('a= ');readln(a);write('b= ');readln(b);If (a<=0)or(b<=0) thenwrite('Сторона не может быть отрицательной, либо равна нулю')elsec:=a*b;writeln('Площадь квадрата, с заданными параметрами равна - ',c);c:=a*b/2;writeln('Площадь прямоугольного треугольника, с заданными параметрами равна - ',c);end.Это лишь  для квадрата и прямоугольного треугольника :-)