Написать программу которая вычисляет наибольший общий делитель двух целых чисел - Turbo Pascal

Формулировка задачи:

Написать программу которая вычисляет наибольший общий делителр двух целых чисел

program p1;
var p, n,m,n1, m1,result: integer;
begin
writeln ('Введите два числа');
readln(m,n);
if m < n then begin
n1 := m;
m1 := n;
end
else begin
n1 := n;
m1 := m;
end;
while n1 > 0 do begin
p := m1 mod n1;
m1 := n1;
n1 := p;
end;
Result := m1;
writeln(result);
end.

Program p1;
var a,b,nod:real;
begin
write('a=');
readln(a);
write('b=');
readln(b);
repeat
if a>b then a:=a-b
else b:=b-a;
until a=b;
writeln('НОД:',a);
readln;
end.

Решение задачи: «Написать программу которая вычисляет наибольший общий делитель двух целых чисел»

Листинг программы

#include <iostream>
using namespace std;
int main()
{
    setlocale(LC_ALL, "Russian");
    int a, b, n; 
a=abs(a);
    b=abs(b);
    cout<<"Введите число A="; cin>>a;
    cout<<"Введите число B="; cin>>b;
    while(a!=0 && b!=0)
    {if (a>b) (a=a%b); else (b=b%a);};
    n=a+b;
    cout<<"Наибольший общий делитель чисел А и B равен "<<n<<"\n";
return 0;}

Объяснение кода листинга программы

В программе подключается библиотека iostream, которая позволяет работать с потоками данных ввода-вывода.
В функции main() объявляются переменные a, b и n типа int. Переменная n будет хранить наибольший общий делитель.
С помощью функции abs() приводятся к положительным значениям переменные a и b.
С помощью функции setlocale() устанавливается локаль системы, в данном случае - русский язык.
В цикле while() происходит сравнение и обмен значений переменных a и b до тех пор, пока они не станут равными нулю.
После выхода из цикла while() переменная n присваивается сумме a и b.
С помощью функции cout() выводится на экран сообщение о наибольшем общем делителе чисел a и b.
Функция main() возвращает значение 0, что означает успешное завершение программы.