Dze je subor www.TrSek.com/beginner/danciwo/euklidus.pas

{ EUKLIDUS.PAS                                Copyright (c) Danciwo }
{ Euklidov algortimus sluzi na najdenie NSD (najmensi spolocny      }
{ delitel) dvoch N cisel iba pomocou odcitovania.                   }
{                                                                   }
{ Author: Danciwo                                                   }
{ Date  : 15.02.2008                           http://www.trsek.com }

program euklid_NSD;
var x,y:integer;

begin
writeln('Euklidov algortimus na najdenie NSD (najmensi spolocny delitel) dvoch cisel');
writeln('Zadaj x,y');
readln(x,y);

repeat
   if x>y then x:= x-y;
   if y>x then y:= y-x;
until x=y;

writeln('NSD= ',x);
readln;
end.

Copyrigth by Zdeno Sekerak 2007, http://www.trsek.com