Question

Паскаль программу написать
Введите длину и ширину прямоугольника ( два целых положительных числа). Вычислить площадь и периметр прямоугольника

Answer 1

var a, b:real;

begin
  readln(a, b);
  writeln('Площадь равна ', a*b);
  writeln('Периметр равен ', 2*(a + b));
end.