1)
var
a,b : integer;
begin
readln (a,b);
if a > b then
b := a +b;<span>
writeln (a,' ',b);
end.</span>
Колонка "№" - заполняется автоматически происходит инкремент предыдущего значения
1* 10^4 + 2*10^3 + 7*10^2+ 5*10^1 +3*10^0
По горизонтали: 1. Файл. 3. Хранения. 5. Оперативная. 7. Фотография. 8. Бумага. 10. Китай. 11. Пергамент.По вертикали: 1. Фонограф. 2. Береста. 4. Долговременная. 6. Информация. 9. Папирус.