Var
rida, veerg, ridu, veerge: integer;
f: text;
begin
assign(f, 'korrutus.txt');
rewrite(f);
writeln('Mitu rida on tabelis?');
readln(ridu);
writeln('Mitu veergu on tabelis?');
readln(veerge);
for rida:=1 to ridu do
begin
  for veerg:=1 to veerge do
   begin
   write(f, rida*veerg:5);
   end;
writeln(f);
end;
close(f);
end.