Напишите программу, которая,используя процедуру writeln, изобразит на экране домик. подпишите домик своей фамилией. фамилию запросите при оператора ввода.

Program Task28;
uses crt;
Var  n:string;    
Begin 
write('Zadaite slovo dlya doma= '); readln(n);
{в центр можно вписать 8 символов и домик будет тогда целый} 
writeln('    ___/\___'); 
writeln('    __/__\___'); 
writeln('   __/___\__'); 
writeln(' __/\__'); 
writeln('__/\__'); 
writeln(' _||_'); 
writeln(' _||_'); 
writeln(' _|' , n ,      '|_'); 
writeln(' _||_');  Readkey;End.