program RectangleAreaPerimeter;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
length, width, area, perimeter: Double;

begin
Write('Enter the length of the rectangle: ');
ReadLn(length);

Write('Enter the width of the rectangle: ');
ReadLn(width);

area := length width;
perimeter := 2 (length + width);

WriteLn('The area of the rectangle is: ', area:0:2);
WriteLn('The perimeter of the rectangle is: ', perimeter:0:2);

ReadLn;
end.