Question

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

Answer 1

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.