В одномерном массиве Y, состоящий из N целых элементов, вычислить количество элементов, равных последнему элементу массива

  crt;
 
var
  Y: array[1..100] of integer;
  N, i, count_sa, count: byte;
  sum: longint;
 
begin
  count := 0;
  count_sa := 0;
  sum := 0;
  randomize;
  write('N = ');
  readln(N);
  setlength(Y, N);
  write('Исходный массив: ');
  for i := 0 to N - 1 do
  begin
    Y[i] := random(20) - 10;
    write(Y[i], ' ');
  end;
  writeln;
  for i := 0 to N - 1 do
  begin
    if Y[i] = Y[N - 1] then
      inc(count);
    if Y[i] mod 3 = 0 then
    begin
      inc(count_sa);
      sum := sum + Y[i];
    end;
  end;
 
  writeln('Количество элементов, равных последнему элементу массива = ', count);
  writeln('Среднее арифметическое элементов, кратных 3 = ', sum / count_sa:0:2);
 
  readln;
 
end.

var a:array[1..100] of integer; //наш массив
n:integer;//кол-во элементов
s:integer;//кол-во элементов равных последнему
r:integer;//сумма элементов кратных 3
ri:integer;//кол-во элементов кратных 3
begin
read(n);//запрашиваем число
for i:= 1 to n do
read(a[i]);//запрашиваем массив
for i := 1 to n do begin
if a[i]=a[n] then s:=s+1;//сравниваем с последним и считаем кол-во
if a[i] mod 3 =0 then begin //проверяем кратность
r:=r+a[i]; // считаем сумма
ir:=ir+1; //считаем число
end;
end;
write(s, r/ir:0:3) //выводим
end.