программы с циклом ПОКА и ДО (Тема 8) (1)

program NOD;
var
  a, b: integer;

begin

  Write('Введите два числа для выявления НОД: ');
  read(a, b);
  while a <> b do
  begin
    if a > b then
      A := A - B
    else
        B := B - A;
  end;
  writeln('НОД чисел A и B равен: ', a);
end.