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.
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.