Для вычисления площади прямоугольника необходимо умножить его длину на ширину:S = a×b
program RectangleArea;
var sideA, sideB, area: integer;
begin
write('Длина: ');
readln(sideA);
write('Ширина: ');
readln(sideB);
area := sideA * sideB;
writeln('Площадь прямоугольника: ', area);
readln;
end.