home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 02 / t4.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-02-05  |  307 b   |  20 lines
  1. {$e+}
  2. program t4;
  3. var x,y:integer;
  4.  
  5. function ggt(x,y:integer):integer;
  6. begin
  7.   if x=y then ggt:=x else
  8.     if x<y then ggt:=ggt(x,y-x)
  9.            else ggt:=ggt(x-y,y);
  10. end;
  11.  
  12. begin
  13.   writeln(' G G T ');
  14.   writeln;
  15.   write  (' GGT(');read(x);write(',');read(y);write(')=',ggt(x,y))
  16. end.
  17.  
  18.  
  19.  
  20.