Выполните на компьютере программу evklid. протестируйте ее на значениях м= 32, n = 24; м = 696, n = 234.

Нахождение наибольшего общего делителя, если я правильно понял?

program Evkild;
var
  a, b: integer;
begin
  write('Введите a: ');
  readln(a);
  write('Введите b: ');
  readln(b);
  while (a <> 0) and (b <> 0) do
  if a >= b then
    a := a mod b
  else
    b := b mod a;
  writeln('Наибольший общий делитель = ', a + b);
  readln;
end.