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