1. Вывести на экран изображение домиков от 1 до 10
Между домиками может быть от 1 до 5 пробелов.
При выполнении задания использовать форматный вывод и циклы.
Пример (5 домиков между ними 2 пробела):
A A A A A
АМА АМА АМА АМА АМА
АМММА АМММА АМММА АМММА АМММА
АМММММА АМММММА АМММММА АМММММА АМММММА
МММММ МММММ МММММ МММММ МММММ
ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ
МММММ МММММ МММММ МММММ МММММ
Вот пример процедуры и программы выводящей один домик:
Program Prog4_1;
Procedure HouseRow(d : Integer; s: String);
Var i : Integer;
Begin
write(s:d);
writeln;
End;
BEGIN
HouseRow(4,'A');
HouseRow(5,'АМА');
HouseRow(6,'АМММА');
HouseRow(7,'АМММММА');
HouseRow(6,'МММММ');
HouseRow(6,'ЖЖ ЖЖ');
HouseRow(6,'МММММ');
END.

Если поместить строки домика в массив M : array[1..7] of String[10]; то алгоритм будет короче.

2. Вывести на экран запись целого числа N (0..1023) в 2-м и 8-м коде.
Оформить вывод отдельными процедурами см. презентация Неделя 4.
Ввод и вывод должен быть как в примере:
Введите N: 321
321(10) = 0101000001(2) = 0501(8)
будет плюсом если вывод будет таким:
321(10) = 101000001(2) = 501(8)
т. е. не значащие 0 не выводятся.

3. Напишите программу с 2-мя функциями, которые вычисляют наибольший общий делитель двух натуральных чисел.
Для нахождения НОД взять модифицированный алгоритм Евклида см. презентацию неделя 3.
Пример:
Введите два натуральных числа:
10 15
НОД(10, 15) = 5