Исправить ошибки. листинг программа: program posledow; var x, y: real; begin x: =8 repet` y: =sqr(x-8)/6; writeln (x: 8: 3, y: 8: 3); x: =x+6; until y+5< 0; end.

Program Posledow;
Var x, y: real;
Begin
x:=8;
Repeat y:=SQR(x-8)/6;
Writeln (x,' ',y);
x:=x+6;
Until y+5<0;
End.

---

проверь правильность программы по условию, потому что очень большой вывод получается.