program liitmine;
var
 f: text;
 rida, veerg: integer;

begin
 assign(f, 'tabel.txt');
 rewrite(f);
 for rida:=1 to 9 do 
 begin
  for veerg:=1 to 9 do
  begin
   write(f, rida+veerg:4);
  end;
  writeln(f);
 end;
 close(f);
end.

{Muuda programmi nii, et ta k„ivitamisel
 ksiks ridade arvu,
 ksiks veergude arvu,
 Ksiks faili, kuhu tabel paigutada
 ning kirjutaks siis sinna korrutustabeli}