program nasobilka; var i, j : integer; begin for i := 1 to 10 do begin for j := 1 to 10 do begin writeln(i, ' x ', j, ' = ', i*j, ' '); end; readln; end; readln; end.