Программа, позволяющая напечатать таблицу Пифагора

Таблица Пифагора - это квадратная матрица из 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.

автор: Карась