Дана строка, состоящая из слов и чисел, отделенный друг от друга пробелами.…

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); readlnend.