Помогите исправить ошибки. Листинг программа: Program Posledow; Var x, y:...

Question

Помогите исправить ошибки.

Листинг программа:

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;</p>

End.

Answer 1

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;<br>End.

---

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