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

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

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