var s:array[1..4]of ansistring;

word,fulls:ansistring;

temp:char;

c:integer;

procedure work;

begin

{it}

s[1]:=copy(fulls,1,pos('is',fulls)-2);

delete(fulls,1,pos('is',fulls)-1);

if ( ord(s[1][1])>=65 ) and ( ord(s[1][1])