Что не так?
program z5;
var n,n1:real;
begin
repeat
writeln ('Введите число');
read (n);
while n<0 do
begin
writeln ('Введено неправильное число. Число не должно быть отрицательным.');
read(n);
end;
n1:=sqrt(n);
writeln ('Квадратный корень',n1);
end.