13.1. У двох рядках дано по одному натуральному числу (друге не менше за перше). Виведіть усі числа, що кратні зі лежать між даними
числами включно. Якщо таких Чисел немає, то нічого не виводити.
Вхід - 5 9
Вихід - 6 9

13.2. У двох рядках дано по одному натуральному пiслу (друге не
менше за перше). Bведіть кількість чисел, що кратні 7 і лежать між
даними числами включно. Якщо таких чисел немає, то нічого не вводить.
Вхід - 8 21
Вихід - 2

13.3. Турист проходить туристичний маршрут і за перший день
пройшов а кілометрів, а за кожен наступний на 100% менше. На якій день
турист подолає ввесь маршрут, якщо його довжина 5 кілометрів. У двох
рядках дано по одному натуральному числу 4 i s. введіть відповідь на
задачу,
Вхід - 20 100
Вихід - 7
​

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  var m:=ReadInteger('Количество элементов в массиве А (m):');
  var n:=ReadInteger('Количество элементов в массиве B (n):');
  var k:=ReadInteger('Позиция вставки k (1<k<m):');
  if (k>1) and (k<m) then begin
    var a:=ArrRandom(m,1,99); Writeln('Массив A'); a.Println;
    var b:=ArrRandom(n,1,99); Writeln('Массив B'); b.Println;
    Writeln('Результат вставки'); (a[:k]+b+a[k:]).Println
    end
  else Writeln('Вы нарушили условие 1<k<m')
end.

Тестовое решение
Количество элементов в массиве А (m): 10
Количество элементов в массиве B (n): 6
Позиция вставки k (1<k<m): 4
Массив A
68 64 30 75 36 15 50 39 92 26
Массив B
56 68 97 30 95 63
Результат вставки
68 64 30 75 56 68 97 30 95 63 36 15 50 39 92 26

Program smallest;<br /><br />var <br />a,b,c:integer;<br /><br />begin<br /><br />write('введите а: ');<br />readln(a);<br />write('введите b: ');<br />readln(b);<br />write('введите c: ');<br />readln(c);<br /><br />if (a - b) > 0 then <br />begin<br />if (a - c) > 0 then<br />writeln('a - наибольшее!');<br />end;<br /><br />if (b - a) > 0 then<br />begin<br />if (b - c) > 0 then<br />writeln('b - наибольшее!');<br />end;<br /><br />if (c - a) > 0 then<br />begin<br />if (c - b) > 0 then<br />writeln('c - наибольшее!');<br />end;<br /><br />end.