Вопрос, который вызвал трудности

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

Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.

После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:

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.