Даны 5 естественных чисел.Узнать сколько из их являются нечетными числами и

Если правдиво, я не очень разумею методы в Паскале.Не могли бы вы написать полностью программу?

Var
  i,k,n1,n2:integer;
begin
  n1:=0; n2:=0;
  Write('Введите 5 натуральных чисел: ');
  for i:=1 to 5 do begin
    Read(k);
    if k mod 2lt;gt;0 then Inc(n1);
    if (k mod 3=0) and (k mod 5lt;gt;0) then Inc(n2)
    end;
  Writeln('Нечетных- ',n1,', кратных 3 и не кратных 5- ',n2)
end.

Пример
Введите 5 натуральных чисел: 11 8 33 15 27
Нечетных- 4, кратных 3 и не кратных 5- 2