Вот так гораздо проще.
var s:string;
begin
readln(s);
writeln(length(s));
end.
Я считаю что так:
только английский-25 чел
только французкий-27
оба языка-18
Во всех программах, если будешь использовать функцию scanf() или поток std::cin, то вывод всех элементов делай в другом цикле.
<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var R := Sqrt(ReadReal('x=')+Pi/4);
R.Println;
end.
<h2>Пример</h2><h3>x= 45.3243</h3><h3>6.79041222337771 </h3>
Надеюсь понятно, заранее сори за качество:)