найдите сторону квадрата по заданной площади S "паскаль ABC"

можешь дать лучший ответ плиз

сделано;)

program a;var s:real;beginwrite('введите площадь квадрата: S = ');readln(s);s:=sqrt(s);write('сторона квадрата = ',s);end.