Написать программу в pascal abc. вычисление квадратного корня. данные ввести с клавиатуры.

Program z1;
var s,x:real;
begin
writeln('введите неотрицательное число, из которого будем извлекать квадратный корень');
readln(s);
x:=sqrt(s);
writeln(x);
end.