Вычисление площади параллелограмм в паскале

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