home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 1 / crawlyvol1.bin / crm_demo / p_pascal / ggt.pas < prev    next >
Pascal/Delphi Source File  |  1992-05-27  |  332b  |  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.