Var x, y:real; begin x :=-10;while x <= 10 do begin if 5-x >= 0 then y := sqrt(5-x); writeln('x: ', x, '; y: ', y); x := x + 1; end;end.Как вместо нуля напротив y вывести слово error?Паскаль

добавить в Var строковую переменную (например  s:string;), а в программе определять равенство y=0. Если верно, то строковой переменной присвоить s:=error. Если не верно , то строковой переменной присвоить y с указанием количества знаков после запятой (например 5 знаков) Str(y:0:5, s); и при выводе написать writeln('x: ', x, '; y: ',s); (заменили число y на строку s)

Объяснение: