program Rectangle;
var
a, b, perimeter, area: integer;
begin
write('Enter the length of the rectangle: ');
readln(a);
write('Enter the width of the rectangle: ');
readln(b);
perimeter := 2 * (a + b);
area := a * b;
writeln('Perimeter of the rectangle: ', perimeter);
writeln('Area of the rectangle: ', area);
end.

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