HOTEN PASCAL

var a:array [1..1000] of string; s,max:string; i,d,k,n:longint; //x:char; procedure nhap; begin readln(s); n:=length(s); end;

procedure tachtu;
var i:longint;
begin
    d:=1;
    for i:=1 to n do
        if s[i]<>' ' then a[d]:=a[d]+s[i]
        else inc(d);
end;

procedure cau1;
begin
    writeln(d);
end;

procedure cau2;
begin
    max:='';
    for i:=1 to d do
        if length(a[i])>length(max) then max:=a[i];
    writeln(length(max));
end;

procedure cau3;
begin;
    for i:=1 to n do writeln(a[i]);
end;

begin
    assign(input,'hoten.inp');reset(input);
    assign(output,'hoten.out');rewrite(output);
    nhap;
    tachtu; 
    cau1;
    cau2;
    cau3;
end.