Program EVM;
Const
  maxstr = 11;
  beg = 5;
  en = 4;
Var
  str:string[255];
  begstr:string[5];
  endstr:string[4];
Begin
  Writeln('Введите строку');
  Readln(str);
  if length(str) < maxstr then
    Writeln(str);
  else
  begin
    begstr:=Copy(str,1,beg);
    endstr:=Copy(str,Length(str)-en,en);
    Writeln(begstr,'~',endstr);
  end;
End.