Table

program table;
var
    arr:array[0..2] of array[0..9] of integer;
    x:integer;
    y:integer;
begin
    for y:=0 to Length(arr) - 1 do begin
        for x:=0 to Length(arr[y]) - 1 do write((y + 1) * 10 + x * 2, '|');
        writeln();
    end;
end.