program d2;
 
var s:string;
    i:integer;
 
begin
write('Vvedite stroky: ');
readln(s);
 
insert ('#',s,1);
insert ('#',s,length(s)+1);
 
writeln('REZULITAT - ',s);
 
readln;
end.