y=a^2=5x-8/4x-8=(6x/2) паскаль

Попробуйте ввести 0 при присваивании x.

ОК. Считается, что условный оператор ещё не проходили и данные должны вводиться правильно. )))

var y,a,x:real;begin;readln(x);readln(a);if x=0 then exit;y:=sqr(a)+5*x-8/(4*x)-8+(6*x/2);writeln(y);end.

var a,x,y:real;beginwrite('a=');readln(a);write('X=');readln(X);y:=a*a+5*x-8/(4*x)-8+(6*x/2);writeln('y=',y:5:2);end.