{ EUKLIDUS.PAS Copyright (c) Danciwo } { Euklidov algortimus sluzi na najdenie NSD (najvacsi 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 (najvacsi 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.