Срочно! Пожалуйста! Задайте алгоритм выбирается 100 четырехзначных…

Program z; var mas: array [1… 100] of integer; i, a, b, b1, s: integer; beginfor i: =1 to 100 doreadln (mas[i]); for a: =1 to 100 dobeginb: =mas[i] div 1000+(mas[i] div 100 — mas[i] div 1000*10); b1: =mas[i] mod 10+(mas[i] mod 100 div 10); if b1=b then s: =s+1; end; writeln (s); end.