var

i,n,max:integer;

s:string;

function wordlen(i:integer):integer;

var

n:integer;

begin

n:=0;

while (s[i]<>’ ‘) and (i<=length(s)) do

begin

i:=i+1; n:=n+1;

end;

wordlen:=n;

end;


begin

write(‘vvedite stroky:’);

readln(s);

i:=1; n:=0; max:=0;

while (i<=length(s)) do 

begin

if s[i]<>’ ‘ then 

begin

n:=n+1;

if wordlen(i)>max then max:=wordlen(i);

i:=i+wordlen(i);

end

else i:=i+1;

end;

writeln(max);

readln;

end.

writeln (s);

writeln (s);

var

  i, n, max, start:integer;
  s: string;

function wordlen(i:integer):integer;
var
  n:integer;

begin
  n:=0;
  while (s[i]<>' ') and (i<=length(s)) do begin
    i:=i+1; n:=n+1;
  end;
  wordlen:=n;
end;


begin
  write('vvedite stroky:'); readln(s);
  i:=1; n:=0; max:=0;

  while (i<=length(s)) do begin
    if s[i]<>' ' then begin
      n:=n+1;
      if wordlen(i)>max then begin
        max:=wordlen(i); start := i;
      end;
    i:=i+wordlen(i);
  end
  else i:=i+1;

end;

writeln(max, ' --> ', copy(s, start, max));

readln;

end.

const
 s: string = 'btuukdsfghkkkkkkl';
var
 counter: array[char] of byte;
 max: byte;
var i: integer;
begin
 max := 0;
 for i := 1 to length(s) do
   begin
     inc(counter[s[i]]);
     if max < counter[s[i]] then
       max := counter[s[i]]
   end;
 for i := 1 to 255 do
   if counter[chr(i)] = max then
     write(chr(i), ' ');
 writeln(max);
end.

 for ch := #32 to #255 do
   for i := 1 to cnt[ch] do write(ch);

Var I : Integer;
Begin
 For I:=0 To 255 Do Write(Chr(I));
End.

inc(J)

var
 cnt: array[char] of integer;
 s: string;
 i: integer;
 ch: char;
begin
 s := 'sdj;alskjdf;laskjdf;laksjd;lkjf;lsdk;gjlskd;jgskgf';
 for i := 1 to length(s) do
   inc(cnt[s[i]]);
 for ch := #32 to #255 do
  if cnt[ch] <> 0 then writeln(ch,'   ',cnt[ch]);
end.