Найти члены последовательности, кратные 3 и не кратные 5

var
 i, n: integer;
 
procedure Count(n: integer);
var
 i, Count: integer;
begin
 writeln('Члены последовательности кратные 3 и не кратные 5: ');
  for i:=1 to n do
   if (i mod 3 = 0) and (i mod 5 <> 0) then
    begin
     write(i, ' ');
     inc(Count);
    end;
 writeln;
 writeln('Их кол-во: ', Count);
end;
 
begin
 write('N: ');
 readln(n);
 writeln('Последовательность: ');
  for i:=1 to n do
   write(i, ' ');
 writeln;
 Count(n);
end.

const
 Max_Value = 7;
type
 TArr = array[1..Max_Value, 1..Max_Value] of integer;
var
 arr: TArr;
 i, j, n, m, q: integer;
 
procedure CountEl(arr: TArr; q: integer);
var
 i, j, Count: integer;
begin
 Count:=0;
 writeln('Элементы превышающие по модулю число ', q, ': '); 
  for i:=1 to n do
   for j:=1 to m do
    if abs(arr[i, j]) > q then
     begin
      inc(Count);
      write(arr[i, j], '  ');
     end;
 writeln;
 writeln('Их кол-во: ', Count);
end;
 
begin
 writeln('Введите размер матрицы(n m): ');
 repeat read(n, m);
 until (n in [1..Max_Value]) and (m in [1..Max_Value]);
 writeln('Матрица: ');
  for i:=1 to n do
   begin
    for j:=1 to m do
     begin
      arr[i, j]:=random(20)+1;
      write(arr[i, j]:4);
     end;
    writeln;
   end;
 writeln;
 writeln('Введите число q: ');
 readln(q);
 CountEl(arr, q);
end.

uses crt;
var
 i, n: integer;
procedure Count(n: integer);
var
 i, k: integer;
begin
 writeln('Члены последовательности от 1 до ',n,' кратные 3 и не кратные 5: ');
  k:=0;
  for i:=1 to n do
   if (i mod 3 = 0) and (i mod 5 <> 0) then
    begin
     write(i, ' ');
     inc(k);
    end;
 writeln;
 writeln('Их кол-во: ', k);
end;
 
begin
repeat
 write('N<=5000 n=');
 read(n);
until (n>0)and(n<=5000);
writeln('Последовательность: ');
writeln;
Count(n);
end.