program arvestus;
var
x1,x2,x3,a,b,c,n,i:integer;
arv:array[0..12] of string;
arvud:integer;
f:text;


procedure ylesanne1;
begin
{     randomize;}
     x1:=random(9)+1;
     x2:=random(9)+1;
     a:=random(9)+1;
     c:=a*x1*x2;
     b:=-a*(x1+x2);
          writeln(f,'1. Lahenda v”rrand.');
          writeln(f,'  2             ');
          {writeln(f,a,'x + ',b,'x+ ',c, '=0');}
           write(f,a,'x ');
           if (b<0) then write(f, b)
            else write(f, '+ ',b);
           write(f, ' x ');
           if (c<0) then write(f, c)
            else write(f, '+ ',c);
          writeln(f, '=0');
          writeln(f);
          writeln(f);
end;

procedure ylesanne2;
begin
     {randomize;}
     x1:=random(9)+1;
     x2:=random(9)+1;
     x3:=random(9)+1;
                     writeln(f,'2. Lahenda v”rrand.');
                     writeln(f,' x+',x1             );
                     writeln(f,' ----=',x2,'      ');
                     writeln(f,'  ',x3,'          ');
                     writeln(f);
                     writeln(f);
end;

procedure ylesanne3;
begin
arv[0]:=' 360,8400 ';
arv[1]:=' 528,110 ';
arv[2]:=' 1955,2431 ';
arv[3]:=' 299,667 ';
arv[4]:=' 1955,3111 ';
arv[5]:=' 2431,3111 ';
arv[6]:=' 4779,2400 ';
arv[7]:=' 628,3124 ';
arv[8]:=' 299,391 ';
arv[9]:=' 230,13 ';
arv[10]:=' 232,460 ';
arv[11]:=' 1430,2912 ';
arv[12]:=' 1180,4779 ';

{randomize;}
arvud:=random(12);
                  writeln(f,'3. Leia suurim histegur ja v„him hiskordne arvudele ',arv[arvud],'.');
                  writeln(f);
                  writeln(f);
                  writeln(f);
                  writeln(f);
end;
begin
     randomize;
     writeln('Mitut t””d soovid?');readln(n);
     begin
     assign(f,'tunnikas.txt');
     rewrite(f);
      for i:=1 to n  do
      begin
           ylesanne1;
           ylesanne2;
           ylesanne3;
           writeln;
           writeln;
      end;
     close(f);
     end;
end.