Циклы,теория чисел,массивы!

k:=0;
for i:=1 to n do
 begin
  readln(a);
  if(a<0)and(a mod 7=0) then k:=k+1;
 end;

uses crt;
var n:longint;
    s:byte;
begin
clrscr;
write('n=');
readln(n);
n:=abs(n);
s:=0;
while n>10 do
 begin
  s:=s+n mod 10;
  n:=n div 10;
 end;
s:=s+n;
writeln('Сумма цифр=',s);
write('Первая цифра: ',n);
readln
end.

writeln('Элементы из диапазона [',a,',',b,']');
k:=0;
for i:=1 to n do
if(mas[i]>=a)and(mas[i]<=b) then
 begin
  write(mas[i],' ');
  k:=k+1;
 end;
writeln;
if k=0 then write('Таких элементов нет')
else write('Количество=',k);

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    n,i,j:byte;
begin
clrscr;
repeat
write('Размер массива=');
readln(n);
until n in [1..nmax];
writeln('Массив:');
for i:=1 to n do
 begin
   for j:=1 to n do
    begin
     if i=j then a[i,j]:=3
     else if j<i then a[i,j]:=-1
     else a[i,j]:=i+j;
     write(a[i,j]:4);
    end;
   writeln;
 end;
readln
end.