program ruutvorr;
var
a, b, c, x1, x2: integer;
begin
 randomize;
 x1:=random(10)-4; 
  if x1<1 then x1:=x1-1; {et c ei tuleks 0}
 x2:=random(10)-5;
  if x2<1 then x2:=x2-1; {et c ei tuleks 0}
  if x1+x2=0 then x2:=x2*2; {et b ei tuleks 0}
 a:=random(2)+1; {a on kas ks voi kaks}
 b:=-a*(x1+x2);
 c:=a*(x1*x2);

 writeln('  2');
 if a=1 then write(' x  ')
        else write(a,'x  ');
 if b<0 then write(b,'x ')       {miinusm„rk kirjutatakse nagunii}
        else write('+',b,'x ');
 if c<0 then write(c)
        else write('+',c);
 
 writeln('=0');
 writeln;
end.

{muuda programmi nii, et ta loeks k„surealt, mitu ruutvärrandi lahendamise 
 lesannet j„rjest kirjutada. (Sarnaselt on tehtud korrutamislesannete
 generaatoris.)}