home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / language / pp_demo / ggt.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-10-23  |  332 b   |  16 lines
  1. program get_ggt;
  2.  
  3.     var x,y : integer;
  4.     
  5. function ggt(a,b:integer) : integer;
  6. begin
  7.     if b=0 then ggt:=a else ggt:=ggt(b,a mod b)
  8. end;
  9.  
  10. begin
  11.     writeln('Gib zwei Zahlen ein, deren größter gemeinsamer Teiler');
  12.     writeln('berechnet werden soll!');
  13.     readln(x); readln(y);
  14.     writeln;
  15.     writeln('Der GGT ist : ',ggt(x,y));
  16. end.