Составить алгоритм и программу нахождения периметра квадрата по введённому значению его...

Question

Составить алгоритм и программу нахождения периметра квадрата по введённому значению его площади

Answer 1

Var
  s: real;
  a: integer;
begin
  readln(a);
  s := 4*sqrt(a);
  writeln(s);
end.

Answer 2

Program asd;var a,p:real;begin writeln ('Введите сторону квадрта');readln(a);p:=4*a;writeln ('p= ',p:10);readln(p);end.