program ruutvorr; var x1, x2, a, b, c, d: real; begin writeln('Programm leiab ruutv“rrandi lahendi.'); write('a='); readln(a); write('b='); readln(b); write('c='); readln(c); d:=b*b-4*a*c; if d>=0 then begin writeln('x1=',(-b+sqrt(d))/(2*a):5:2); writeln('x2=',(-b-sqrt(d))/(2*a):5:2); end else writeln('V“rrandil lahendid puuduvad.'); end.