var
x, y, i, j, arv, kood: integer;
begin
 val(paramstr(1), arv, kood);
 if kood <> 0 then arv:=1;
 randomize;
 for i:=1 to arv do begin
  write('Variant ',i,'             ');
  writeln('Variant ',i);
  writeln;
  for j:=1 to 10 do begin
   x:=random(9)+1;
   y:=random(9)+1;
   write(x,'ú',y,'=                     ');
   writeln(x,'ú',y,'=',x*y:3);
  end;
  writeln;
  writeln;
 end;
end.