Попробуй это код.
a=[]a.append(1)a.append(1)for i in range(2,int(input())):--a.append((a[i-1]+a[i-2]))print(' '.join(list(map(str,a))))
1) нужно ввести двумерный массив
var ar:array[1..4,1..4] of integer;
2) в теле программы проверяешь условие:
If I=J then
ar[i,j]:=0;
===== PascalABC.NET ======
begin
SeqGen(8, 2, 3, (p, q) -> p * p + q).Print
end.
1.Перевезёт волка
2.Перевезёт капусту
3.Перевезет козу.