1 PROGRAM QUAGL(INPUT,OUTPUT);
3 VAR A,B,C,DISKR,X1,X2,RE,IM: REAL;
10 X1 := (-B + SQRT(DISKR))/(2*A);
11 X2 := (-B - SQRT(DISKR))/(2*A);
12 WRITELN("X1=", X1:10:5);
13 WRITELN("X2=", X2:10:5)
18 IM := SQRT(-DISKR)/(2*A);
19 WRITELN("X1=", RE:10:5, " +", IM:10:5, " *J");
20 WRITELN("X2=", RE:10:5, " -", IM:10:5, " *J")