Var
  a, b, n, x, y, i: integer;
   f: text;
begin
  
  write('Mitut kontrollt”” varianti soovid?');
  readln(n);
  randomize;
  assign(f,'kontr.txt');
  rewrite(f);
  for i:=1 to n do
  begin
    writeln(f,'Variant ',i);
    writeln(f);
    x:=random(100)+1;
    y:=random(100)+1;
    write(f,x:2, '+', y:2, '=');
    writeln(f,x:20,'+', y:2, '=',x+y:2);
    writeln(f);

    x:=random(100)+1;
    y:=random(100)+1;
    if x<y then begin
      x:=x+y;
      y:=x-y;
      x:=x-y;
    end;
    write(f,x:2, '-', y:2, '=');
    writeln(f,x:20, '-', y:2, '=',x-y:2);
    writeln(f);

    x:=random(100)+1;
    y:=random(100)+1;
    write(f,x:2, '*', y:2, '=');
    writeln(f,x:20, '*', y:2, '=',x*y:2);
    writeln(f);

    repeat
          x:=random(100)+1;
          y:=random(100)+1;
    until x mod y =0;
    write(f,x:2, '/', y:2, '=');
    writeln(f,x:20, '/', y:2, '=',x div y:2);
    writeln(f);

    repeat
        x:=random(78)+3;
        y:=random(100)+1;
        a:=random(9)+1;
        b:=random(30)+1;
    until (x+y) mod b =0;

    write(f,'((',x,'+',y, ')/', b,')*', a, '=','':9);
    writeln(f,'((',x,'+',y, ')/', b,')*', a, '=',((x+y)div b)*a);
    writeln(f);
    writeln(f);
  end; 
  close(f);

  
end.