Занятие 12 -образец

Задача. Даны два числа а и b. Найти их наибольший общий делитель (НОД).

Решение:

Program p1;
Var a,b:integer;
Begin
  Write('Введите два числа ');
  Readln(a,b);
  While a<> b do
  If a>b then a:=a-b
             else b:=b-a;
Writeln(a)
End.