с ДЗ.
Pascal ABC
Задание на фото.

var a,x,b: real;

begin

write('Введите a: ');

readln(a);

write('Введите b: ');

readln(b);

write('Введите x: ');

readln(x);

if (b <> 0) then  

writeln('y = ',(x*x+a)/b)

else  

writeln('b не может быть равно 0!');

end.