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

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