Var
    fullstr,s,s_int,s_rl,s_str: string;
    int: integer;
    rl: real;
    space,err: integer;
begin
 writeln('String:');
    readln(fullstr);

 while fullstr[1] = ' ' do
        delete(fullstr,1,1);
    while fullstr[length(fullstr)] = ' ' do
        delete(fullstr,length(fullstr),1);
    while pos('  ',fullstr) 0 do
        delete(fullstr,pos('  ',fullstr),1);

 s_int := '';
    s_rl  := '';
    s_str := '';
    while fullstr '' do begin
        space := pos(' ',fullstr);
        if space = 0 then
            space := length(fullstr) + 1;
        s := copy(fullstr,1,space-1);
        val(s,int,err);
        if err = 0 then
            s_int := s_int + s + ' '
        else begin
            val(s,rl,err);
            if err = 0 then
                s_rl := s_rl + s + ' '
            else
                s_str := s_str + s + ' ';
        end;
        delete(fullstr,1,space);
    end;

 writeln('Integers: ',s_int);
    writeln('Real: ',s_rl);
    writeln('Words: ',s_str);

readln
end.