По заданным формулам составьте алгоритм для вычисления значений у: а) у=(5х^2-4)(х^2+7); б) у=[3-(х-5)^2]/[(х-5)^2+8]

Var y1,y2:real;
x:integer;
begin
writeln('x=');
readln(x);
y1:=( 5*sqr(x)-4)*(sqr(x)+7);
y2:=(3-sqr(x-5))/(sqr(x-5)+8);
writeln('y1=',y1,' y2=',y2);
readln;
end.