Коля зашифровал слово компьютер
Помоему 1 кбайт.....,.....
Никто не решится наверное) да еще на ночь глядя)
В строчках, в которых Вы вычисляете y1 есть явная ошибка - скобок не хватает, а некоторые скобки можно, наоборот, убрать:
Вместо y1:=((1/3)*(2*y0+x/y0*y0))
надо написать y1:=(2*y0+x/(y0*y0))/3