Напишите программу формирования и вывода массива произвольного размера так, чтобы каждый последующий элемент, начиная с третьего, был равен сумме двух предыдущих элементов. Два первых элемента задайте с клавиатуры.

Напишите программу формирования и вывода массива размером 6х3, каждые три последовательных элемента в строке которого составлены по следующему правилу:
1-й - равен случайному числу, отличному от нуля;
2-й - равен квадрату предыдущего элемента;
3-й - равен целой части частного от деления двух предыдущих элементов.

1. var a:array [1..100] of integer;i,n:integer;beginread(n); {количество эл. массива}read (a[1], a[2]);for i:=3 to n doa[i]:=a[i-1]+a[i-2];for i:=1 to n dowrite (a[i],' ' );end.2.const m=6;n=3;var a:array [1..100,1..100] of integer;i,j:integer;beginfor i:=1 to m doread (a[i,1]);for i:=1 to m dobeginj:=1;a[i,j+1]:= sqr(a[i,j]);a[i,j+2]:= a[i,j] div a[i,j+1]; {это условие мне не совсем понятно}end;for i:=1 to m dobeginfor j:=1 to n dowrite (a[i,j]:3);writeln;end;end.