program Rectangle;

var
a, b, S, P: real;

begin
writeln('Enter the length of the rectangle:');
readln(a);

writeln('Enter the width of the rectangle:');
readln(b);

S := a b;
P := 2 (a + b);

writeln('The area of the rectangle is ', S:0:2);
writeln('The perimeter of the rectangle is ', P:0:2);

readln;
end.