others/volume1/056.pas


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

uses sysutils, clib;

var
  n, count: int16;
  a: int64;

begin
  count := 0;
  readln(n);
  repeat
    readln(a);
    if ispalindrome(inttostr(a)) then
      inc(count);
    dec(n)
  until n = 0;
  writeln(count)
end.