var a, b, s: integer;
begin
s := 0; { количество симметричных чисел }
for a := 1 to 9 do { тысячи }
for b := 0 to 9 do { сотни }
inc(s);
writeln(s)
end.
var a, b, s: integer;
begin
s := 0; { количество симметричных чисел }
for a := 1 to 9 do { тысячи }
for b := 0 to 9 do { сотни }
inc(s);
writeln(s)
end.