Вычислить наибольший общий делитель двух натуральных чисел А и В — Pascal(Паскаль)

program E6;
  var a, b: integer;
begin
  write ('введите два натуральных числа');
  readln (a, b);
  while a<>b do
    if a>b then a: = a - b
    else b: = b - a;
  write ('НОД = ', a);
  readln;
end.