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

Var
n, a, k7, ost: longint;
begin
readln(n);
k7 := 0;
ost := 0;
for i := 1 to n do begin
read(a);
if (a mod 7 = 0) then
inc(k7, a)
else
inc(ost);
end;
writeln('Сумма чисел, кратных семи, равна ', k7);
writeln('Количество оставшихся чисел равно ', ost);
end.

Удачи.
-------------------------------------------------------------------------------------------------------
Настоящий мастер — это вечный ученик.