Составить программу по паскалю! определить количество чисел с цифрой 4 в записи числа

Var   ar: array[1..2000] of integer;   n,i,count: integer; begin   readln(n);   for i: =1 to n do begin     read(ar[i]);     while ((ar[i]> 0) and ((ar[i] mod 10)< > 4)) do ar[i]: =ar[i] div 10;     if ar[i] mod 10 = 4 then inc(count);   end;   writeln(count); end.

первая программа считает сумму входящих в строку цифр стоящих на местах с нечетными номерами, начиная с первой, если это буква то вместо нее берется 0(ноль)

результат выполнения

аб2в457где245*ж0247025020

2) 

var s, r: string; i: integer;

begin readln(s); r : = ''; for i : = 1 to length(s) do if s[i] < > 'c' then r : = r + s[i]; writeln(r); end.

в этом варианте представлен алгоритм без обратной связи, так как алгоритм представляет собой только однозначную последовательность команд. 

такой алгоритм является линейным, или последовательным. то есть в нём отсутствует   процесс передачи информации о состоянии объекта к объекту.