Нужно сделать блок схему 
var a,n,s,i:integer;
begin
  readln(n); //ввод количества членов последовательности
  for i:=1 to n do begin
    readln(a); //ввод очередного числа
    if a mod 10 = 4 then s:=s+a; //число оканчивается 4
  end;
  writeln (s); //Вывод суммы оканчивающихся на 4
end.