uses crt;
var i,k,uk,m,n,mn,p:integer;
st,res,st1,slo,slo1:string;
a,b,c:array[1..30] of string;
begin clrscr;
write('st-');readln(st);
st:=st+' ';
repeat
p:=pos(' ',st);slo:=copy(st,1,p-1);inc(uk);a[uk]:=slo;delete(st,1,p);
until length(st)=0;
textcolor(14);
for i:=1 to uk do write(a[i],';');
for i:=1 to uk do
begin
n:=length(a[i]);
slo1:=a[i];
for k:=1 to n do
if ord(slo1[k])<60 then delete(slo1,k,k);
a[i]:=slo1;
end;
writeln;textcolor(12);
for i:=1 to uk do
write(a[i],';');
readkey;
end.
dXNlcyBjcnQ7CnZhciBpLGssdWssbSxuLG1uLHA6aW50ZWdlcjsKc3QscmVzLHN0MSxzbG8sc2xvMTpzdHJpbmc7CmEsYixjOmFycmF5WzEuLjMwXSBvZiBzdHJpbmc7CmJlZ2luIGNscnNjcjsKd3JpdGUoJ3N0LScpO3JlYWRsbihzdCk7CnN0Oj1zdCsnICc7CnJlcGVhdApwOj1wb3MoJyAnLHN0KTtzbG86PWNvcHkoc3QsMSxwLTEpO2luYyh1ayk7YVt1a106PXNsbztkZWxldGUoc3QsMSxwKTsKdW50aWwgbGVuZ3RoKHN0KT0wOwp0ZXh0Y29sb3IoMTQpOwpmb3IgaTo9MSB0byB1ayBkbyB3cml0ZShhW2ldLCc7Jyk7CmZvciBpOj0xIHRvIHVrIGRvCmJlZ2luCm46PWxlbmd0aChhW2ldKTsKc2xvMTo9YVtpXTsKZm9yIGs6PTEgdG8gbiBkbyAKaWYgb3JkKHNsbzFba10pPDYwIHRoZW4gZGVsZXRlKHNsbzEsayxrKTsKYVtpXTo9c2xvMTsKZW5kOwp3cml0ZWxuO3RleHRjb2xvcigxMik7CmZvciBpOj0xIHRvIHVrIGRvCndyaXRlKGFbaV0sJzsnKTsKcmVhZGtleTsKZW5kLg==