Решение:
Задача 1
var a:array [1..100] of integer;
i,n:integer;
begin
read(n);
read (a[1], a[2]);
for i:=3 to n do
a[i]:=a[i-1]+a[i-2];
for i:=1 to n do
write (a[i],' ' );
end
Задача 2
const m=6;n=3;
var a:array [1..100,1..100] of integer;
i,j:integer;
begin
for i:=1 to m do
read (a[i,1]);
for i:=1 to m do
begin
j:=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 do
begin
for j:=1 to n do
write (a[i,j]:3);
writeln;end;
end