program delitel;
uses crt;
var a,b,r,x,nod,y:longint;
begin
clrscr;
             write ('Введите 2 числа: ');
               read (a,b);
if a>b
   then begin x:=a; y:=b end
        else begin x:=b; y:=a end;
if (x>0) and (y>0)
    then begin
         while y<>0 do
           begin
           r:=x mod y;
             x:=y;
                y:=r;
           end;
               nod:=x;
                  write('НОД чисел ',a,' и ',b,' равен ',nod);
       end
else                    write(' Ошибка в данных');
readkey;
end.