program skv; uses crt; var a,b,c,d,x1,x2:real; t:boolean; begin clrscr; writeln('sisesta a,b,c'); readln(a,b,c); if a<>0 then begin d:=sqr(b)-4*a*c; t:=d>=0; if t then begin x1:=(-b+sqrt(d))/(2*a); x2:=(-b-sqrt(d))/(2*a); writeln('x1= ',x1:3:2,' x2= ',x2:3:2); end else writeln('tulemusi ei ole!'); end else writeln('/0 ei tohi!'); readln; end.