Написать программу в Pascal ABC. Вычисление квадратного корня. Данные ввести с клавиатуры.

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