Составить метод вычисления площади параллелограмма

program zz1;
var a, h, r:real; // задаем переменные не целого типа
begin
write( введите основание параллелограмма ); // вводим с клавиатуры основание параллелограмма
read(a);
write( введите вышину параллелограмма ); // вводим с клавиатуры вышину параллелограмма
read(h);
r:=a * h; // вычисляем площадь параллелограмма по формуле
write( площадь параллелограмма = , r:5:2); // выводим ответ в формате 5 знаков для всего числа и два знака после точки
end.