напишите программу которая выводит сумму всех чисел кратных 8 и больших 40

PascalABC.NETВерсия 3.3.5 Сборка 1662 (29.04.2018)var n, i, a, sum : integer;begin  readLn(n);  sum := 0;  for i :=0 to n do  begin    readLn(a);    if (a mod 8 = 0) and (a > 40) then    begin      sum := sum+a;    end  end;  writeLn(sum);end.