Домашнее задание "Линейные алгоритмы"

1. Написать программу, вычисляющую площадь и периметр прямоугольного треугольника по двум катетам a и b.
2. Написать программу, вычисляющую площадь круга по заданному радиусу. 
3. Написать программу, вычисляющую объем, площадь боковой поверхности куба со стороной а.

Пример.  Написать программу, вычисляющую площадь трапеции. Стороны трапеции а и b, высота h вводятся с клавиатуры. 
Формула вычисления площади трапеции S=(a+b)*h/2

program Primer;
   var a,b,h:integer; {описание переменных}
         S:real;
begin                   {начало раздела операторов}
    Writeln('Введите значения a,b,h'); {вывод текстовой строки "Введите значения                                                                                                                               a,b,h"}
    Readln(a,b,h);  {оператор чтения данных с клавиатуры, ввод данных}
    S:=(a+b)*h/2;   {вычисление площади}
    Writeln('S=',S); {вывод результата}
end.                     {конец программы}