Задание 1: Наберите текст стихотворения и разбейте его на две колонки ИДЕАЛ И СИРИУСЯ долго странствовал по свету, Я все увидел, все узнал, Но, мгпой туманною одета, Ты мимо шла, мой Идеал.Я много понял звезд пучистых, Одна пишь тайный свет лила, Как лунный отблеск серебристый, Была печальна и светла.И долго вещие зеницыСмотрели в сумрачный туман, Где ярко-красные зарницыМрачили неба океан.Теперь я понял тайну ночи, Нашел Тебя, мой ИдеалТвои лишь ныне блещут очи, Как вечно Сириус сверкал!ОЧЕНЬ ​

Объявляем функцию gcd, принимающую два целочисленных параметра и возвращающую их наибольший общий делитель. Здесь это вычисляется при алгоритма Евклида.

Затем для удобства определяем ещё одну функцию gcd3, которая принимает уже три аргумента и, используя указанную в условии формулу и описанную выше функцию gcd, вычисляет НОД от трёх чисел.

В основной части программы просто три числа считываются с клавиатуры и выводится ответ.

Код (PascalABC.NET v3.6.2316):

function gcd(a, b: integer): integer;

begin

 while a * b <> 0 do

   (a, b) := (b, a mod b);

 Result := a + b

end;

function gcd3(a, b, c: integer) := gcd(gcd(a, b), c);

begin

 var (a, b, c) := ReadInteger3;

 print(gcd3(a, b, c))

end.

Пример ввода:

10 40 20

Пример вывода:

10