Введите с клавиатуры два числа, найдите периметр и площадь прямоугольника.
(Линейные алгоритмы. Язык Паскаля).

Предыдущий
вопрос Следующий
вопрос

Program PerimeterAndAreaRectangle;

var
length, width, perimeter, area: real;

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

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

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

writeln('Perimeter of the rectangle is: ', perimeter:0:2);
writeln('Area of the rectangle is: ', area:0:2);

end.