Question

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

Answer 1

Var a,x,y:real;
begin
write('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.

Answer 2

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.