Помогите, пожалуйста
Составьте программу в паскале для вычисления квадратного корня из х

var x: real;beginread(x);if (x>=0) then beginx:=sqrt(x);writeln(x)endelse writeln('No'); // Здесь вроде как No, потому что комплексное число в паскале можно составлять исключительно через строки, не думаю, что потребуется. readln()end.