Ответ:
Периметр прямоугольника вычисляется по формуле P = 2 × (длина + ширина), площадь — по формуле S = длина × ширина.
program Hello;
var
length, width, p, s: real;
begin
readln(length, width);
p := 2 * (length + width);
s := length * width;
writeln('Периметр = ', p:0:2);
writeln('Площадь = ', s:0:2);
end.