Найти наибольший делитель натурального чисел 12 18. на языке паскаль

Відповідь:

program nodd;

var chislo1, {первое число}

   chislo2, {второе число}

   nod,     {наибольший общий делитель}

   r:integer;  {остаток отделения 1-го числа на 2-е}

begin

Writeln ('Vvedite chisla:');

Readln (chislo1,chislo2); {ввод двух чисел с клавиатуры}

     while (chislo1 mod chislo2)<>0 do {цикл выполняется пока остаток <> 0}

        begin

          r:=chislo1 mod chislo2;  {вычисление остатка 1-го числа на 2-ое}

          chislo1:=chislo2;        {присваиваем 2-е число 1-му}

          chislo2:=r;          {присваиваем остаток от деления 2-му числу}

        end;

nod:=chislo2;            {присваиваем 2-е число переменной nod}

Writeln ('NOD: ',nod);   {Вывод НОД}

Readln;

end.

Пояснення: