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
inc(i);
st:=st+st[i];
end;
until length(st)=10 ;
writeln (st);
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.