program dy;
var x,b,a,c: integer;
uses crt;
begin
clrscr;
writeln('введи число, потом второе, потом третье');
readln(b,a,c);
if (b> 0) and (a> 0) and (c> 0)
then writeln('решение есть х= ', ((-b+b*b-4*a*c)/2*a))
else writeln('решения нет')
end.
