Pascal.вычислить периметр квадрата если дана его площадь s

Корень квадратный от s берешь - это будет одна сторона, потом умножаешь на 4 - это будет периметр.
writeln('Периметр = ", sqrt(s) * 4);

Program z1; var s,k:longint; Begin Readln(s); k:=trunc(sqrt(s)); Writeln(k); End.