Program Posledow;Var x, y: real;Beginx:=8;Repeat y:=SQR(x-8)/6;Writeln (x,' ',y);x:=x+6;Until y+5<0;End.
---
проверь правильность программы по условию, потому что очень большой вывод получается.