Dze je subor www.TrSek.com/zadania/zlomok.pas
{ ZLOMOK.PAS                                     Copyright (c) Pheo }
{ Program s procedúrou na krátenie zlomku s výpisom najväèšieho     }
{ spoloèného delite¾a.                                              }
{ Datum:24.04.2003                             http://www.trsek.com }

program zlomok;
uses crt;
var a,b,c,d,del :integer;

function nsd (x,y:integer):integer;
var p:integer;
begin
     while p<>0 do
     begin
          p:=x mod y;
          x:=y ;y:=p;
     end;
     nsd:=x;
end;

procedure kratenie (p,q:integer; var u,v,de:integer) ;
begin
     de:=nsd(p,q);
     u:=p div de; v:=q div de;
end;

begin
     clrscr;
     writeln ('zadaj citatela a menovatela zlomku');
     read (a,b);
     kratenie (a,b,c,d,del);
     writeln (a,'/',b,'=',c,'/',d,'   delitel=',del);
     repeat until keypressed
end.
Copyrigth by Zdeno Sekerak 2007, http://www.trsek.com