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

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