cara menghitung pecahan menggunakan free pascal

Teman-teman, disini saya mau berbagi ilmu tentang bagaimana menghitung pecahan menggunakan free pascal, tapi jangan asal copas ya, dipelajari lalu dicoba sendiri, biar pintar...


uses crt;
var
pertama, kedua, ketiga, keempat:integer;
a, b:integer;

function pembilang (one, two:integer):integer;
   begin
   a:=ketiga ;
   b:=keempat;
   pembilang:=one*b+two*a;
   end;

function penyebut (three, four:integer):integer;
   begin
   penyebut:= three*four;
   end;

function pembilang1(five, six:integer):integer;
   begin
   pembilang1:=five*six;
   end;
function penyebut1(seven, eight:integer):integer;
   begin
   penyebut1:=seven*eight;
   end;

function pembilang2(nine, ten:integer):integer;
   begin
   ten:=keempat;
   pembilang2:=nine*ten;
   end;
function penyebut2(eleven, twelve:integer):integer;
   begin
   twelve:=kedua;
   penyebut2:=eleven*twelve;
   end;

function pembilang3 (thirteen, fourteen:integer):integer;
   begin
   a:=ketiga;
   b:=keempat;
   pembilang3:=thirteen*b-fourteen*a;
   end;
function penyebut3 (fifteen, sixteen:integer):integer;
   begin
   penyebut3:=fifteen*sixteen;
   end;

begin
clrscr;
  writeln('Pecahan 1');
  write('pembilang i :');
  readln(pertama);
  write('penyebut i  :');
  readln(ketiga);
writeln;
  writeln('Pecahan 2');
  write('Pembilang ii:');
  readln(kedua);
  write('pecahan ii  :');
  readln(keempat);
writeln;
writeln('Maka hasil dari petambahan   ',pertama,'/',ketiga,' + ',kedua,'/',keempat,' adalah ',pembilang(pertama,kedua),'/',penyebut(ketiga, keempat));
writeln('Maka hasil dari perkalian    ',pertama,'/',ketiga,' * ',kedua,'/',keempat,' adalah ',pembilang1(pertama,kedua),'/',penyebut1(ketiga, keempat));
writeln('Maka hasil dari pembagian    ',pertama,'/',ketiga,' / ',kedua,'/',keempat,' adalah ',pembilang2(pertama,kedua),'/',penyebut2(ketiga, keempat));
writeln('Maka hasil dari pengurangan  ',pertama,'/',ketiga,' - ',kedua,'/',keempat,' adalah ',pembilang3(pertama,kedua),'/',penyebut3(ketiga, keempat));
readkey;
end.


DAN INI OUTPUTNYA..