program Rectangle;
vaa, b, S, P: real;
begiwriteln('Enter the length of the rectangle:')readln(a);
writeln('Enter the width of the rectangle:')readln(b);
S := a bP := 2 (a + b);
writeln('The area of the rectangle is ', S:0:2)writeln('The perimeter of the rectangle is ', P:0:2);
readlnend.
program Rectangle;
va
a, b, S, P: real;
begi
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.