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

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