1)Напиши программу, которая запрашивает значение двух переменных и выводит их разность. Приглашение к вводу каждого числа произведите в отдельных строках. Вывод результата сопроводите пояснениями2)Напиши программу, которая, используя,процедуру writeln, изоброзит на экране домик. Подпишите домик своей фамилией. Фамилию запросите при помощи оператора ввода.Пожалуйста посчитайте ПЖ ДАМ 100 поинтов

1)
var a,b,r:integer;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
r:=a-b;
writeln(a,'-',b,' = ',r);
end.

Пример:
a = 21
b = 15
21-15 = 6

2)
var fam:string;
begin
write('Введите фамилию: ');
readln(fam);
writeln('    *');
writeln('   ***');
writeln('  *****');
writeln(' *******');
writeln('*********');
writeln('***   ***');
writeln('***   ***');
writeln('***   ***');
writeln('*********');
writeln('*********');
writeln;
writeln('     ',fam);
end.

Результат:
Введите фамилию: Master
    *
   ***
  *****
 *******
*********
***   ***
***   ***
***   ***
*********
*********

     Master