вычисление НОД из двух чисел

[street-walker]

Найдите пожалуйста ошибку:

Var a,b:longint;
Begin
WriteLn('Введите два числа* <> 0');
ReadLn(a,b);
While (a<>0) or (b<>0) do

if (a>b)
then
a:=a mod b
else
b:=b mod a;

WriteLn('Наибольший общий делитель =',a+b);
ReadLn;
End.

[Sazary]

While (a<>0) and (b<>0) do

[street-walker]

спасибо)все работает