НАДО НАПИСАТЬ НА ПАСКАЛЕ НАДО НАПИСАТЬ НА ПАСКАЛЕ ">

var a: array [1..200] of smallint; n,s: byte; begin  read(n);  for var i := 1 to n do    begin      read(a[i]);      if (a[i].ToString.Length=2) and (a[i] div 10 = 7) then s:=s+1;    end;    write(s);end.

или

begin  ReadArrInteger(ReadInteger).Count(x->(x in 10..99) and (x div 10 = 7)).Printend.

Примеры работ: