Напишите программу, которая,используя процедуру 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.