Задание №6. Создай программу. Задача. Найти периметр и площадь прямоугольника. Длину и ширину ввести с клавиатуры.

Program rectangle;

Var length, width, perimeter, area: real;

Begin

writeln('Введите длину прямоугольника:');

readln(length);

writeln('Введите ширину прямоугольника:');

readln(width);

perimeter := 2 * (length + width);

area := length * width;

writeln('Периметр: ', perimeter);

writeln('Площадь: ', area);

End.