Төмендегі фрагмент орындалса баспаға не шығарады: Begin B:=1: c:=-2; D:=SQRT (SQR (b)-4*c); WRITELN (*X1=*, (-b+d)/2; * X2=*, (-b-d)/2) end.

1 X1=1; X2=-2;
2 X1=2; X2=-2;
3 X1=2; X2=1;
4 X1=1; X2=1;
5 X1=2   X2=1;