Может что-то похожее,если я правильно понял задание.Если да,то на делфи перевести не проблема.
begin
var pow: BigInteger := 1;
var sum := 1;
var n := 0;
while n < 2 do
begin
Print('n =');
read(n)
end;
for var i := 2 to n do
begin
sum += i;
pow *= sum
end;
Print(pow)
end.
var
a:array [1..10] of integer;
i:integer;
begin
randomize;
for i:=1 to 10 do begin
a[i]:=random(20)+1;
write (a[i],' ');
end;
writeln;
for i:=1 to 10 do
if odd(a[i])=true then write (a[i],' ');
readln;
end.
Const
n = 6;
var
i, j: integer;
a: array[1..n, 1..n] of integer;
begin
for i := 1 to n do
begin
for j := 1 to n do
begin
if j < i then a[i, j] := 0
else a[i, j] := 1;
write(a[i, j])
end;
writeln;
end;
end.
Тестовое решение:
111111
011111
001111
000111
000011
000001