Составьте программку нахождения наибольшего общего делителя трёх чисел, используя последующую

Создатель учебника специально код по-китайски форматирует, чтобы ты ничего не сообразила

Function NOD(A, B: integer): integer;
  begin
    while (A lt;gt; 0) and (B lt;gt; 0) do
      if A gt;= B then
        A := A mod B
      else
        B := B mod A;
    Result := A + B;
  end;
 var
    A, B, C: integer; begin
    write(tri chisla:');
    readln(A,B,C); 
    writeln(NOD(A,NOD(B,C))); 
    readln; 
end.
Не забудь поставить превосходнейший ответ