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