Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
12 lines (11 sloc) 157 Bytes
var
n, i, j: longint;
begin
read(n);
for i := 0 to n - 1 do
begin
for j := i downto 1 do
write(i * j + 1, ' ');
writeln(1)
end;
end.