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