Перваму играку нужна перваму сказать число и пастаяна гаварить 10 тагда он выиграет
var
i,k,l:integer;
s:string;
begin
readln(s);
k:=0;
i:=1;
while i<length(s) do
begin
l:=0;
while (s[i]<>' ') and (i<length(s)) do
begin
l:=l+1;
i:=i+1;
end;
i:=i+1;
if l>k then k:=l;
end;
writeln(k);
end.
<span>аппаратными средствами информатизации</span>
(x>3)-4 -> (x<3)-0 -> ((x>3)v(x<3))-4+0=4 ответ:4