program primer1;
Var a,b,c,x1,x2,d:real;
begin
write('a=');readln(1);
write('b=');readln(4);
write('c=');readln(2);
d; sqr(b)-4*c*a;
wruteln('d=',d);
end.