Написать программу :

в последовательности натуральных чисел найти сумму и кол-во дву значных чисел начинающихся на 2 
Program - Pascal ABC

Program Rick_and_Morty;var x,y,i:integer;var a:array [1..9999] of integer;Beginy:=0;write('введите количество чисел (макс 9999): ');readln (x);write('Масив: ');for i:=1 to x dobegina[i]:=random(89)+10;write(a[i],', ');end;writeln('');for i:=1 to x dobeginif (a[i] div 10 =2) thenbeginy:=a[i]+y;writeln('Подходящее число:',a[i],' сумма =',y );end;end;writeln('конец');end.

vari,n,cnt,tmp,sum, last:integer;a:array [1..9999] of integer;BeginWriteln('Введите кол-во элементов');Readln(n);Writeln('Введите последовательность -> ');for i:= 1 to n do  read(a[i]);writeln();for i:=1 to n do  begin    tmp:= a[i];      while tmp > 0 do        begin          last:=tmp mod 10;          tmp:= tmp div 10;        end;  if last = 2 then    begin      cnt:= cnt + 1;      sum:= sum + a[i];    end;  end;Writeln('Всего элементов: ', cnt);Writeln('Сумма равна ', sum);end.