var i:integer;var slovo:string;begin write('Vvedite slovo: '); readln(slovo); for i:=1 to length(slovo) do slovo:='*'+slovo+'*'; writeln(slovo); readln;end.
var i:integer;
var slovo:string;
begin
write('Vvedite slovo: ');
readln(slovo);
for i:=1 to length(slovo) do
slovo:='*'+slovo+'*';
writeln(slovo);
readln;
end.