about summary refs log tree commit diff
path: root/others/volume1/056.pas
blob: 8fdc2dc4964d1e2ff4746a9e4c54d85122a62198 (plain) (blame)
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.