Дан массив из n натуральных чисел .определить количество элементов кратных 3 и не кратных 5

Var       i, el, kol,  n: integer; begin     read(n);           kol : = 0;     for i : = 1 to n do begin                read(el);           if (el  mod  3  =  0)and(el  mod  5  < >   0) then inc(kol);       end;           write(kol); end.

Var s: string;     i,sum: integer; // объявление переменных begin             // начинаем программу writeln('vvedite chislo'); // вывод текста readln(s); // ввод текста sum: =0; // присваиваем переменной sum значение 0 чтобы при вводе текста отличного от 0, программа выводила правильный результат то есть 0. for i: =1 to length(s) do if s[i]='0' then sum: =sum+1; // запускаем счетчик с 1 до length(s) что значит эта команда, она считает сколько в тексте символов. и проверяем с 1 символа до length(s) совпадает ли символ со значением 0, если совпадает то прибавляем 1. writeln(sum); // вывод суммы end. // конец программы

Var   o,em,bm: real;   x,x2: real;   a,b: real; begin   o: =160;   bm: =40;   em: =120;     writeln('введите цену бизнес класса ');   readln(x);   x2: =(x/2); //цена эконом класса   writeln('непроданные бизнес класса =');   readln(a);   writeln('непроданные эконом класса =');   readln(b);   bm: =bm*x;   em: =em*x2;   bm: =bm-a*x;   em: =em-b*x2;   o: =bm+em;   writeln ('прибыль = ',o);   end.