Program xa;
label 1;
var
 a:string;
 i,s,c:integer;
begin
 writeln('Vvedite stroky: ');
 readln(a);
 
1: for i:=1 to length(a) do
  if a[i] in ['A'..'Z'] then begin
  delete(a,i,1); goto 1;     end;
 
 Writeln('Isx: ' ,a);
 readln;
end.