Var a,k:integer;begink:=0;readln(a);
while a<>0 do
begin
k:=k+1;
readln(a);
end;
writeln('k = ',k);
end.
Пример:
2 8 5 7 0
k = 4
Будет слово "разметка", т.к. слова-ответы складываются из конца и начала некоторых рядом стоящих слов фразы.
Передача это какой то или какие то файл(ы) ты куда то перекидываешь:)