Дана площадь и сторона прямоугольника,написать программу нахождения периметра (PascalABC)

Question

Дана площадь и сторона прямоугольника,написать программу нахождения периметра (PascalABC)

Answer 1

Походу так Program Octagon;  Uses crt;  Var a, b: real;  Begin clr;  Write('Введите сторону прямоугольника A= ');  Readln(a);  Write('Введите сторону прямоугольника B= ');  Readln(b);  Writeln('Периметр прямоугольника равен ',a+a+b+b);  Readln;  End.

Comments

Program Octagon;
Uses crt;
Var a, b: real;
Begin clr;
Write('Введите сторону прямоугольника A= ');
Readln(a);
Write('Введите сторону прямоугольника B= ');
Readln(b);
Writeln('Периметр прямоугольника равен ',a+a+b+b);
Readln;
End.

Answer 2

Что бы найти периметр нужно сложить все стороны данной фигуры. Например: P(квадрата)=a+a+a+a=4a a - сторона квадрата.