Umiestnenie súboru 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