PASCAL_ПОЖАЛУЙСТА Добавьте в эту программку(ИМЕННО В ЭТУ Программку) УСЛОВИЕ, ПРИ КОТОРОМ

PASCAL_ПОЖАЛУЙСТА Добавьте в эту программку(Конкретно В ЭТУ ПРОГРАММУ) УСЛОВИЕ, ПРИ КОТОРОМ ОН ЕЩЕ БУДЕТ СЧИТАТЬ "СУММУ" ЧИСЕЛ И ЧЕТНЫХ, И КРАТНЫХ ТРЕМ(ТО ЕСТЬ ЧИСЛА И ЧЕТНЫЕ, И КРАТНЫЕ, ТАКИЕ КАК 6,12,18 И ТД.) просто добавить в эту программу:
PROGRAM JJJ;
VAR I,N,C,KT
BEGIN
N:=0;
C:=0;
KT:=0;
FOR I:=50 TO 100 DO
BEGIN WRITE (I:3);
N:=N+1
IF I MOD 2=0 THEN C:=C+1;
IF I MOD 3=0 THEN KT:=KT+1;
END;
WRITE ('ВСЕГО ', N:2, 'ЧЕТНЫЕ ', С:2, 'КРАТНЫЕ ТРЁМ ',KT:2);
END.