Подсчитать колличество чисел кратных 5.

program zad4;
uses crt;
var
   a:array[1..100] of integer;
   i,n,k:integer;
begin
  clrscr;
  randomize;
  write('Ðàçìåðíîñòü ìàññèâà: ');
  readln(n);
  writeln('Ôîðìèðîâàíèå ìàññèâà...');
  for i:=1 to n do
   begin
    a[i]:=random(35)+1;
    write(a[i]:4);
   end;
  writeln;
  max:=a[1];
  min:=a[1];
  for i:=1 to n do
   if a[i] mod 5=0 then k:=k+1;
  writeln('Êîëëè÷åñòâî ýëåìåíòîâ êðàòíûõ òðåì: ',k);
  readln;
end.

for i:=1 to n do
if a[i] mod 5=0 then inc(k);
writeln(k);

program vad2211;
uses crt;
var
   a:array[1..100] of integer;
   i,n,k:integer;
begin
  clrscr;
  randomize;
  write('Размерность массива: ');
  readln(n);
  writeln('Формирование массива...');
  for i:=1 to n do
   begin
    a[i]:=random(35)+1;
    write(a[i]:4);
   end;
  writeln;
  for i:=1 to n do
   if a[i] mod 5=0 then k:=k+1;
  writeln('Колличество элементов кратных пяти: ',k);
  readln;
end.

program vad2211;
uses crt;
var
   s,s1:string;
   b:string[1];
   i,a:integer;
begin
 clrscr;
 i:=0;
 writeln ('stroka (slova eng): ');
 readln (s);
 write ('Vvedi bukvu: ');
 readln (b);
 repeat
  a:=pos(' ',s);
  if a<>0 then s1:=copy(s,1,a) else s1:=s;
  if s1[1]=b then
    inc(i);
  delete (s,1,a);
 until a=0;
 writeln ('Kol-vo slov nachinayuchiesya na bukvu "',b,'" ravno: ',i);
end.

program vad2211;
uses crt;
var
   s,s1:string;
   b:string[1];
   i,a:integer;
begin
 clrscr;
 i:=0;
 writeln ('stroka (slova eng): ');
 readln (s);
 repeat
  a:=pos(' ',s);
  if a<>0 then s1:=copy(s,1,a) else s1:=s;
  if s1[1]='b' then
    inc(i);
  delete (s,1,a);
 until a=0;
 writeln ('Kol-vo slov nachinayuchiesya na bukvu "b" ravno: ',i);
end.