Определить из наибольший общий делитель, используя функцию нахождения общего делителя.

[Igomax]

Даны натуральные числа. Определить из наибольший общий делитель, используя функцию нахождения общего делителя.

Подскажите что не правильно я сделал

PHP код:

program ll;
var a,b:longint;
function del(var x:longint):longint;
var i:longint;
begin 
a:=x;
if x>b then x:=b;
for i:=1 to x do begin
if (a mod i=0) and (b mod i=0) then X:=i;
end;
del:=x;
end;
begin writeln;
write ('vvedite a i b');
read (a,b);
write ('obshii del=  ',del(a));
end. 


[Sazary]

uses crt;
var a,b:longint;
 
function del(a,b:longint):longint;
begin
while (a<>0) and (b<>0) do
 if a>b then a := a mod b
 else b := b mod a;
del := a+b;
end; 

begin
clrscr;
write ('vvedite a i b  ');
readln(a,b);
writeln('obshii del=  ',del(a,b));
readln;
end.

[Igomax]

while (a<>0) and (b<>0) do
if a>b then a := a mod b
else b := b mod a;

Объясните пожалуйста что это значит

[DM_bite]

while (a<>0) and (b<>0) do
if a>b then a := a mod b
else b := b mod a;

Это и есть то, что тебе нужно:

Определить из наибольший общий делитель

[Igomax]

Я понял просто что тут имеятся ввиду

[DM_bite]

Дословно: Если a>b, то находить остаток от деления a на b, иначе - найти остаток от деления b на a, все это выполняеться пока a и b не равны 0.

[Igomax]

Спасибо большое