Нужно сделать блок схему var a,n,s,i:integer;begin  readln(n); //ввод количества членов

Нужно сделать блок схему
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.