Делал в PascalABC, но в Turbo тоже должно работать. Если не работает, попробуйте перед "End." вставить "Readln".
Program Kisa;
Begin
Writeln('___________________$$____________$$'); Writeln('__________________$___$________$___$'); Writeln('__________________$_____$$$$$$_____$'); Writeln('__________________$____sss___sss____$'); Writeln('__________________$____іі_____іі_____$'); Writeln('_________________$_______$$$________$'); Writeln('_____$$$$$$$$_____$_______$________$'); Writeln('___$$________$_______$$_________$$'); Writeln('____$_________$_____$___$$$$$$___$'); Writeln('_______$______$____$__$________$__$'); Writeln('_______$_____$____$__$__________$__$'); Writeln('______$____$___$$$$__$__________$__$$$$'); Writeln('_____$___$____$____$__$________$___$___$'); Writeln('_____$__$_____$____$__$________$__$____$'); Writeln('____$___$______$____$__$____$_$__$____$'); Writeln('______$__$______$____$___$_$_____$___$'); Writeln('_______$___$$$$$_$___$___$_$____$___$'); Writeln('__________$$$$$_$____$____$_____$____$'); Writeln('________________$$$_$_____$______$_$$$'); Writeln('_____________________$$$$___$$$$$');
End.