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

program zz1;

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

begin

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

read (a);

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

read (b);

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

Writeln (' площадь прямоугольник заданного длинами сторон = ', c);

END.