среди всех трехзначных чисел найти кол-во четных, сумму и количество нечетных, произведение чисел кратных 3 1) используя цикл с предусловием 2) с циклом с переменной

Это задача, для решения которой нужно обладать только элементарными знаниями:
1.Оператор цикла for
2.оператор if ...then...else.
3.оператор вычисления остатка целочисленного деления mod.
3.оператор writeln.
ВСЕ! Алгоритм :цикл по i от 1 до 50,внутри по if (i mod 3=0) Вычисляем sum... Выводим ...writeln..