{ NAJVACSI_DELITEL.PAS                           Copyright (c) Pheo }
{ Program na určenie najväčšieho spoločného deliteža dvoch čísel.   }
{                                                                   }
{ Datum:24.04.2005                             http://www.trsek.com }
 
PROGRAM najvacsi_delitel;
uses crt;
var a,a1,b,b1,c,d,z,p:integer;
 
begin
     clrscr;
     gotoxy(20,5); write('Zadaj cislo a : ');
     read(a); a1:=a;
     gotoxy(20,6); write('Zadaj cislo b : ');
     read(b); b1:=b;
     if a < b then begin p:=a ; a:=b; b:=p; end;
     repeat
           z := a mod b;
           a:=b;
           if z<>0 then b:=z;
     until z=0;
     gotoxy(20,8); write('NSD (',a1,',',b1,') = ',b);
     repeat until keypressed
end.