Question

Что не так?
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.

Answer 1

Зачем тебе там "repeat"? Убери его)

И он не так оформляется.

Пример: Repeat b:=b/2;