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

program RectangleAreaPerimeter;
var
a, b, area, perimeter: real;
begin
writeln('Введите длину стороны a прямоугольника:');
readln(a);
writeln('Введите длину стороны b прямоугольника:');
readln(b);
area := a * b;
perimeter := 2 * (a + b);
writeln('Площадь прямоугольника: ', area:0:2);
writeln('Периметр прямоугольника: ', perimeter:0:2);
end.

После запуска этой программы нужно будет ввести значения длин сторон a и b, после чего программа выведет площадь и периметр прямоугольника.