Вычислить периметр квадрата, если известна его площадь! напишите программу в cрочно

Program kvadrat;
uses crt;
var a,s,p : real;
begin
        clrscr;
        writeln('Введите S:');
        readln(S);
        a:=sqrt(S);
        P:=a+a+a+a;
        writeln('P= ',P:6:2);
        readln;
end.