Даны 5 натуральных чисел.выяснить сколько из них являются нечетными числами и сколько из них кратны 3 и не кратны 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 2<>0 then Inc(n1);
    if (k mod 3=0) and (k mod 5<>0) then Inc(n2)
    end;
  Writeln('Нечетных- ',n1,', кратных 3 и не кратных 5- ',n2)
end.

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

Принтер  — перифирийное устройство компьютера, предназначенное для перевода текста или графики на физический носитель из электронного вида малыми тиражами (от единиц до сотен) без создания пе. Этим принтеры отличаются от полиграфического оборудования , которое за счёт печатной формы быстрее и дешевле на крупных тиражах (сотни и более экземпляров).
Классификация-По возможности печати графической информации принтеры делятся 
• ударно-шрифтовые (алфавитно-цифровые, ) - барабанные, на основе лепесткового печатающего устройства или пишущей машинки с электромагнитным приводом. Исторические типы. Морально устарели в 1980-е годы. С начала 1990-х годов не выпускаются.• матричные;• лазерные (также светодиодные принтеры);• струйные;• сублимационные• твердо чернильные• 3D принтеры• По количеству цветов печатиo на монохромные(одноцветные) (монохромные)o цветные.На цветных принтерах, к качестве основы цветовой модели используются цвета CMYK:o Cyan - голубойo Magenta - пурпурныйo Yellow - желтыйo Kobalt - черный (английское название соответствует названию тяжелого металла (кобальта), входящего в состав черных красителей)

Наблюдение 1: сумма ряда 1 - 1/2 + 1/3 - 1/4 + 1/5 -... известна и равна ln(2) ~ 0.693147..., так что ответ можно написать и так.
Наблюдение 2: если ряд знакочередующийся и его члены по модулю равномерно убывают (т.е. ряд имеет вид x1 - x2 + x3 - x4 + x5 -... и x1 > x2 > x3 > x4 > x5 > ... > 0), то отличие частичной суммы ряда x1 - x2 + x3 - ... +- xn от истинной не более, чем xn.

Используя наблюдение 2, приходим к выводу, что необходимо суммировать первые 10000 членов ряда.

var S: real;
  i: integer;
begin
  S := 0;
  for i := 1 to 10000 do
    if (i mod 2 = 1) then
      S := S + 1/i
    else
      S := S - 1/i;
  writeln(S)
end.