[Страдалецъ]

Вроде так:

Код:

Const
 ArrSize = 5;
 Arr: Array[1..ArrSize] of Integer = (1,2,3,4,5);
 A = 2;
Var
 i,Count1,Count2: Integer;
begin
Count1 := 0; 
Count2 := 0;
for i := 1 to ArrSize-1
do begin
    if Arr[i] <> Arr[ArrSize] then Inc(Count1);
    if Arr[i] mod A = 0 then Inc(Count2);
    end; 
Write('Отличных: ',Count1,'Кратных: ',Count2);
end.