Аргумент неверный
Excel не будет считать и выдаст подобное "#ЗНАЧ!"
<em>VAR</em>
<em> s: String;</em>
<em> s1,s2,i: LongInt;</em>
<em>BEGIN</em>
<em> Read(s);</em>
<em />
<em> s1 := 0; s2 := 0;</em>
<em> for i := 1 to Length(s) do begin</em>
<em> if (s[i] = s[1]) then Inc(s1);</em>
<em> if (s[i] = s[Length(s)]) then Inc(s2);</em>
<em> end;</em>
<em />
<em> if (s1 > s2) then Write('Первая буква');</em>
<em> if (s1 < s2) then Write('Последняя буква'); </em>
<em> if (s1 = s2) then Write('Равное количество раз.'); </em>
<em>END.</em>
<span>Через поле и лесок подаётся голосок. <span>
Он
бежит по проводам -
Скажешь здесь, а слышно там. (телефон)
</span></span>
Под крышей - четыре ножки,
На крыше - суп да ложки. (Стол)<span>
</span>Хоть по объёму и мала,
Информацию хранит она.
Знаем все устройство это
<span>Называется……
</span>
Адрес, имя, телефоны, все запишет, все запомнит!
<span>И девчонке и мальчишке, всем поможет эта книжка!
</span>
Скромный серый колобок, Длинный тонкий проводок, Ну а на коробке - Две или три кнопки. В зоопарке есть зайчишка, <span>У компьютера есть ...
</span>
Стоит весёлый, светлый дом.
Ребят проворных много в нём.
Там пишут и считают,
<span>Рисуют и читают.</span>