Cколько девяток в числах от 1 до 100?

[1000000_dollars]

Раз:

program Project2;
{$APPTYPE CONSOLE}

USES
SysUtils;

VAR
S : string;
I,
count : integer;

BEGIN
S :='';
for I := 1 to 100 do
S := S + IntToStr(I);
count := 0;
for I := 1 to Length(S) do
if S[i]='9'
then Inc(Count);
WriteLn(Count);
Readln;
END.

Два:

(((1 to: 100)inject: ''into: [:a :b | a,b displayString]) reject: [:each |(each = $9)not]) size.