Организовать с клавиатуры ввод N произвольных целых чисел. Найти сумму кратных 7 и количество оставшихся
Нужно написать блок схему и к ней программу

Блок схема, минутку

Спасибо

varn, a, k7, ost: longint;beginreadln(n);k7 := 0;ost := 0;for i := 1 to n do beginread(a);if (a mod 7 = 0) theninc(k7, a)elseinc(ost);end;writeln('Сумма чисел, кратных семи, равна ', k7);writeln('Количество оставшихся чисел равно ', ost);end.