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

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

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