program korrutamine;
var
 failinimi:string;
 f: text;
 rida, veerg, i, ridu, veerge: integer;

begin
 {algus}
 writeln('Programm loob korrutustabeli. Selleks ta ksib tabeli ridade ');
 writeln('ja veergude arvu ning faili nime, kuhu tabel paigutada.');
 writeln;
 write('Mitu rida tuleb tabelisse?   '); readln(ridu);
 write('Mitu veergu tuleb tabelisse? '); readln(veerge);
 writeln('Millise nimega faili soovid tabeli paigutada?');
 readln(failinimi); 
 
 {faili avamine}
 assign(f, failinimi);
 rewrite(f);

	 {lemisse ritta kirjutatakse '     | ' ridade numbrite kohale}
 write(f, ' ':4, ' | ');
	 {ning  veergude numbrid}
 for veerg:=1 to veerge do
 begin
  write(f, veerg:4);
 end;
 writeln(f);

	 {teise ritta tuleb sidekriipsudest joon}
	 {7 kohta rea numbri jaoks ning iga veeru jaoks 4 kohta}
	 {annab kokku 7+4*veerge.} 
 for veerg:=1 to 7+4*veerge do write(f, '-');
 writeln(f);
 
 
 for rida:=1 to ridu do 
 begin
 write(f, rida:4, ' | ');   {rea algusse rea number ning pstkriips}

  for veerg:=1 to veerge do
  begin
   write(f, rida*veerg:4);
  end;

  writeln(f);			{j„rgmine rida}
 end;
 close(f);	{suleb faili, salvestab kettale}
end.