var x, y, i, j: integer; begin randomize; for i:=1 to 10 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.