var a,b,c,y,x,z:real;
begin
readln(a,b,c);
writeln('a = ',a);
writeln('b = ',b);
writeln('c = ',c);
writeln('y = ',(a-2)/(b*b-c):0:3);
writeln('x = ',(b*b+4*a*c)/(2*a):0:3);
writeln('z = ',(a/b)+(c/a)-((a*b+c*c)/(b*c)):0:3);
end.
===== PascalABC.NET =====
begin
var a := ArrRandom(100, -20, 20);
a.Println;
a.Transform(p -> p = 5 ? 0 : p);
a.Print
end.