Тема: Паскаль Cоставить программу для нахождении площади прямоугольника. Стороны А и В вводятся произвольно

var

a, b, s: real;

begin

/ / реализовываем ввод данных

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

readln (a);

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

readln (b);

/ / выполняем расчет площади и вывод сообщения

s : = a * b;

writeln ('Площадь прямоугольника со сторонами ', a,' и ', b,' равна: ', s);

end.