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

program zz1;

var a, h, r:real; / / задаем переменные не целого типа

begin

write (' введите основание параллелограмма '); / / вводим с клавиатуры основание параллелограмма

read (a);

write (' введите высоту параллелограмма '); / / вводим с клавиатуры высоту параллелограмма

read (h);

r:=a * h; / / вычисляем площадь параллелограмма по формуле

write (' площадь параллелограмма = ', r:5:2); / / выводим ответ в формате пять знаков для всего числа и два знака после точки

end.