program homer;

var a,b,c:real;

s,k,y:real;

begin

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

readln(a);

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

readln(b);

writeln('Введите c:');

readln(c);

s:=c+sqrt(a+b*b*b*b)/c;

readln(s);

k:=sqrt(abs(a*b*c)+s);

readln(k);

y:=k+(5*s)*(a/(b*c));

readln(y);

writeln('Ответ y=',y);

end.

Если программа не работает, то попробуйте обновить программу.