Tabliczka mnożenia - Pascal

Cześć. Muszę zrobić w Pascalu tabliczkę mnożenia, gotową wypełnioną. Możecie mi z tym pomóc? Nie wiem jak wymnożyć wiersz przez kolumnę. Tak myślę, że wiem gdzie to dać tylko nie wiem jak konkretnie to napisać. Zrobiłem sobie to też w C++ bo dłużej się go uczę i dzięki temu najpierw robię zadanie w C++ a potem na Pascala go przekształcam. Ok, w C++ kod wygląda tak jak poniżej, natomiast w konsoli prezentuje się w taki sposób: http://ifotos.pl/z/ararhqx

 
#include <iostream>

using namespace std;

int main()
{
	cout << "TABLICZKA MNOZENIA" << endl;

	cout << endl;

	const int R = 10;
	int tab[R][R];

	for (int i = 0; i < R; ++i)
	{
		for (int j = 0; j < R; ++j)
		{
			tab[i][j] = (i + 1)*(j + 1);
		}
	}

	for (int i = 0; i < R; ++i)
	{
		for (int j = 0; j < R; ++j)
		{
			cout << tab[i][j] << "\t";
		}
		cout << endl;
	}

	cin.get();
	return 0;
}

Potrzebuję zrobić to samo w Pascalu. Może mi to ktoś dokończyć? Chciałbym, żeby wyglądało tak jak w C++. Za pomoc stawiam browarka :D.

program Tablice_dwuwymiarowe;

  var

    a:array [1..10,1..10] of integer;

    i: integer;

    j: integer;

begin
   writeln('Tabliczka mnozenia');

   writeln;

  for i:=1 to 10 do

  begin

     for j:=1 to 10 do

     begin

      write // TUTAJ MUSI BYĆ TO NAPISANE!

     end;

     writeln;

  end;

 readln();

end.


 

Napisz do mnie na maila: [email protected]
Zrobię Ci to za mniej niż za browarka. :D