{Decryption type 1}
var	fi,fo:file of char;
	g,c:char;
	fid,fod:string;
	i:byte;
begin
	write('Input file : ');readln(fid);
	write('Output file: ');readln(fod);
	assign(fi,fid);reset(fi);
	assign(fo,fod);rewrite(fo);
	while not eof(fi) do
	begin
                read(fi,g);
                if g=chr(0) then
                begin
                        read(fi,g);
                        read(fi,c);
                        for i:=1 to ord(g) do write(fo,c);
                end
                else write(fo,g);
        end;
	close(fo);
end.