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