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