Написать программу, которая вычисляет площадь прямоугольника

program zz1;

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

begin

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

read (a);

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

read (b);

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

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

end.