Таблица Пифагора — это квадратная матрица из 10 строк и 10 столбцов, каждый элемент которой определяется формулой: A[i,j] = i*j.
var
a: array [1 .. 10, 1 .. 10] of integer;
x, y: byte;
begin
For x := 1 to 10 do
begin
For y := 1 to 10 do
begin
a[x, y] := x * y;
Write(a[x, y], ' ');
End;
Writeln;
End;
Readln;
end.