Pascal. ввести слово, если его длина > 10 символов, то удалить лишние, иначе вставить недостающие символы.

var i:integer;

st:string;

begin

 readln (st);

 i:=length(st);

 if length(st)>10 then

   repeat

   delete (st,i,1);

   i:=i-1;

   until length(st)=10;

   i:=0;

 if length(st)<10 then

   repeat

     begin

       inc(i);

       st:=st+st[i];

     end;

   until length(st)=10 ;

   writeln (st);

end.