Question

ЛЮДИ! ПОМОГИТЕ РЕШИТЬ ПОЖАЛУЙСТА В ПРОГРАММЕ ПАСКАЛЬ!

Answer 1

//прога на Pascal`e
var
i, n: byte;
sum, a : longint;
begin
read (n);
  for i:=1 to n do
  begin
  read (a);
     if a mod 7 = 0 then inc (sum, a);
  end;
write (sum);
end.

Answer 2

Спасибо!