ПОМОГИТЕЕЕ!!!!! напишите программу вычисления суммы чисел кратных 5 из натурального ряда чисел от 1 до n , и произведение чисел кратных к 3 (while)

ОТДЕЛ Задание+; ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём; ПЕР   n, сч, сумма, произведение: ЦЕЛ; УКАЗ   n := Приём.Число();   сумма := 0;   произведение := 1;   сч := 1;   ПОКА сч <= n ВЫП     ЕСЛИ сч ОСТАТОК 5 = 0 ТО       УВЕЛИЧИТЬ(сумма, сч)     КОН;     ЕСЛИ сч ОСТАТОК 3 = 0 ТО       произведение := произведение * сч     КОН;     УВЕЛИЧИТЬ(сч)   КОН;   Вывод.ЧЦел("^%d^%d", сумма, произведение, 0, 0) КОН Задание.