Напишите программу , которая в последовательности натуральных чисел определяет сумму чисел ,кратных 4 и оканчивающихся на 6. программа получает на вход количество чисел в последовательности ,а затем сами числа. программа должна вывести одно число: сумму чисел ,кратных 4 и оканчивающихся на 6. нужна программа!

Var n,summa,i:integer;begin  Write('vvedity chislo'); Readln(N);  for i:=1 to N do Summa:=summa+n;  for i:=1 to N do begin  if i mod 4 = 0 then Write(i, ' ');  end;  Writeln;  for i:=1 to n do begin  if i mod 10 = 6 then Write(i, ' ');  end;end.