Найти члены ak последовательности a1,…,an, кратные 3 и не кратные 5, и определить их количество.

Program my51;
var k, n:inteder;
begin
write(‘Введите n’ );readln(n);
If n>5000 then writeln (‘n>5000,Перебор’)
If n<3 then writeln (‘n<3,Недобор’)
else k:=(n div 3)-(n div 15); writeln (‘Кол. Членов множества=’,k)
end.

k:=0;
for i:=1 to n do
if(a[i] mod 3=0) and(a[i] mod 5<>0) then
 begin
  write(a[i],' ');
  k:=k+1;
 end;

uses crt;
var a:array[1..5000] of integer;
    n,i,k:integer;
begin
clrscr;
write('n=') ;
readln(n);
writeln('Ishodnyj massiv:');
for i:=1 to n do
 begin
  a[i]:=random(50)+1;
  write(a[i],' ');
 end;
writeln;
writeln('Rezultat:');
k:=0;
for i:=1 to n do
if(a[i] mod 3=0) and(a[i] mod 5<>0) then
 begin
  write(a[i],' ');
  k:=k+1;
 end;
writeln;
write('Kol.=',k);
readln
end.

uses crt;                                       {Подключает модуль crt- работа с консолью}
var a:array[1..5000] of integer;    {Перечисляем переменные}
    n,i,k:integer;                            
begin                                      {Начинает операторные блоки (программу)}
clrscr;                                     {Очищает окно и устанавливаем курсор слева вверху}
write('n=')     ;                         {Пишет на консоли «n=» -вводим n} 
readln(n);                               {Читает n}
if n>5000 then writeln (‘n>5000’)      {При n>5000 cообщает, что «n>5000»}
if n<=5000 then                     {Условие при n<=5000}
writeln('Ishodnyj massiv:');    {Печатает с новой строки слова «исходный массив»}
for i:=1 to n do                       {Начинается цикл от 1 до n}
begin                            {Начинает читать строки данных из текстового файла}
a[i]:=random(50)+1;              { Генерируется случайное число от 0 до 49 +1}
write(a[i],' ');                          {Пишет на консоли массив }
end;                                      {Промежуточное окончание}
writeln;                                 { Позволяет записать следующие числа с новой строки }
writeln('Rezultat:');                {Пишет на консоли«результат:»}
k:=0;                                      {Присваиваем k=0}
if n<=5000 then                     {Условие что n<=5000}
for i:=1 to n do                       {Начинается цикл от 1 до n}
if(a[i] mod 3=0) and(a[i] mod 5<>0) then      {Проверяет условия кратности}
begin                                     {Читает полную строку данных из текстового файла}               
write(a[i],' ');                           {Пишет на консоли массив кратный 3 и не кратный 5}
k:=k+1;                                  {Находит кол. членов массива- k}
end;                                       {Промежуточное окончание}
writeln;                                  {Позволяет записать следующие числа с новой строки }
write('Kol.=',k);   {Пишет в строку «кол. членов массива» (кратные 3 и не кратные5)}
readln                           {Позволяет прочитать результаты(не надо нажимать Alt+F5)}
end.                              {Окончание программы}

uses crt;
const n=20;
var a:array[1..n] of integer;
    i,j,k:byte;
    x:integer;
begin
clrscr;
randomize;
writeln('Исходная последовательность:');
for i:=1 to n do
 begin
  a[i]:=random(50);
  write(a[i]:4);
 end;
writeln;
k:=0;
for i:=1 to n do
if a[i] mod 2=0 then
  begin
    k:=k+1;
    x:=a[i];
    for j:=i downto k+1 do
    a[j]:=a[j-1];
    a[k]:=x;
  end;
writeln('Перестановка:');
for i:=1 to n do
write(a[i],' ');
readln
end.

program  h;
var
a:array[1..100]of integer;
b:array[1..100] of integer;
n,k,i:integer;
begin
writeln ('skolko elementov posledovaetelnossni');
readln(n);
for i:=1 to n do begin
writeln ('vvedite',i,'-j element posltdovatelnosti');
readln (a[i]);
end;
for i:=1 to n do begin
if i mod 2 =0 then b[i div 2]:=a[i]
else b[n div 2 + 1 + i div 2]:=a[i];
end;
for i:=1 to n do begin
write(b[i]:3);
end;
readln;
end.

uses crt;
const n=20;
var a:array[1..n] of integer;
    i,j,k:byte;
    x:integer;
begin
clrscr;
writeln ('skolko elementov posledovaetelnossni');
readln(n);
for i:=1 to n do begin
writeln ('vvedite',i,'-j element posltdovatelnosti');
readln (a[i]);
end;
writeln;
k:=0;
for i:=1 to n do
if a[i] mod 2=0 then
  begin
    k:=k+1;
    x:=a[i];
    for j:=i downto k+1 do
    a[j]:=a[j-1];
    a[k]:=x;
  end;
writeln('Перестановка:');
for i:=1 to n do
write(a[i],' ');
readln
end.

uses crt;
const n=20;
var a:array[1..n] of integer;
    i,j,k:byte;
    x:integer;
begin
clrscr;
writeln('Vvedite ',n,' elementov posledovatelnosti:');
for i:=1 to n do begin
write ('a[',i,']=');
readln (a[i]);
end;
clrscr;
writeln ('Ishodnaya posledovatelnost:');
for i:=1 to n do
write(a[i],' ');
writeln;
k:=0;
for i:=1 to n do
if a[i] mod 2=0 then
  begin
    k:=k+1;
    x:=a[i];
    for j:=i downto k+1 do
    a[j]:=a[j-1];
    a[k]:=x;
  end;
writeln('Перестановка:');
for i:=1 to n do
write(a[i],' ');
readln
end.

k:=0; //количество перестановок элементов
for i:=1 to n do //смотри по порядку
if a[i] mod 2=0 then//если попалось четное
  begin
    k:=k+1;//считаем
    x:=a[i];//запоминаем
    for j:=i downto k+1 do //от этого элемента до того, который стоит за последним переставленным
    a[j]:=a[j-1];//всем элементам присваиваем значение предыдущего, данный элемент сотрется
    a[k]:=x;//получится пустое место, на него пишем элемент, который запомнили
  end;