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