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

Программа на Паскале:

program rectangle_area_perimeter;
var
  a, b, perimeter, area: real;
begin
  writeln('Введите длину стороны a:');
  readln(a);
  writeln('Введите длину стороны b:');
  readln(b);

  perimeter := 2 * (a + b);
  area := a * b;

  writeln('Периметр прямоугольника: ', perimeter);
  writeln('Площадь прямоугольника: ', area)
end.