Var a,b,c:integer;
p,n:string;
begin
readln(p)
;For a:=1 to length(p) do
begin
n:=copy(p,a,1);
If (n=' ') or (n=',') then
begin
If b>c then c:=b;
b:=0
end
else
b:=b+1;
end;
If c=0 then c:=b;
writeln (c);
<span>end.</span>
Текстовые файлы можно изменять и удалять
Уберем с каждой чашки весов по 4 яблока и 3 груши. На одной чашке останется 1 яблоко, а на другой - одна груша. Следовательно, яблоко и груша имеют равный вес.