Оцініть значення виразу 2x+y

Для избавления от иррациональности в знаменателе необходимо вначале проанализировать знаменатель.
Если знаменатель представляет собой выражение вида , то необходимо домножить и числитель, и знаменатель на этот корень (основное свойство дроби)
Если знаменатель представляет собой выражение вида или , то числитель и знаменатель необходимо домножить на сопряжённое выражение (для первого: на ; для второго выражения на ), сведя числитель к формуле разности квадратов. Это алгоритм для квадратных корней. Для корней больше 2 степени сопряжённые ищутся иначе и по другим формулам.

m, n, nok, t, i: longint;

begin

 Write('Введите через пробел два целых положительных числа- ');

 Readln(m, n);

 {Сначала ищем НОК - наименьшее общее кратное}

 if m = n then begin

   nok := m;

   t := m * m

 end

 else begin

   t := m * n;

   repeat

     if m > n then m := m - n else n := n - m

   until m = n;

   nok := t div m

 end;

 {Теперь умножаем НОК на числа натурального ряда,

  пока не дойдем до величины t=m*n}

 if nok = t then Writeln('Требуемых чисел нет')

 else begin

   i := 1;

   while (nok * i < t) do

   begin

     Write(nok * i, ' ');

     i := i + 1

   end

 end

end.

Тестовое решение:

Введите через пробел два целых положительных числа- 8 120

120 240 360 480 600 720 840

Введите через пробел два целых положительных числа- 35 620

4340 8680 13020 17360

Введите через пробел два целых положительных числа- 7 13

Требуемых чисел нет