СРОЧНО !!! напишите программу, нахождения площади и периметра прямоугольника

ram Octagon;  

Uses crt;  

Var a, b: real;  

Begin clr;  

Write('Введите сторону прямоугольника A= ');  

Readln(a);  

Write('Введите сторону прямоугольника B= ');  

Readln(b);  

Writeln('Периметр прямоугольника равен ',a+a+b+b);  

Readln;  

End.

Объяснение: