Program Pascal : Operasi Dua Pecahan

Program OperasiPecahan;
{Deskripsi Program }
type pecahan = record
     pb,py : integer;
end;

var p1, p2, jumlah, kurang, kali, bagi : pecahan;

begin
     writeln('');
     writeln('');

     write('Masukan penyebut pecahan pertama : ');
     read(p1.py);

     write('Masukan pembilang pecahan pertama : ');
     read(p1.pb);

     write('Masukan penyebut pecahan kedua : ');
     read(p2.py);

     write('Masukan pembilang pecahan kedua : ');
     read(p2.pb);

     jumlah.pb := p1.pb*p2.pb;
     jumlah.py := (p1.py*p2.pb) + (p2.py*p1.pb);

     kurang.pb := jumlah.pb;
     kurang.py := (p1.py*p2.pb) - (p2.py*p1.pb);

     kali.pb := kurang.pb;
     kali.py := p1.py * p2.py;

     bagi.pb := p1.pb * p2.py;
     bagi.py := p1.py * p2.pb;

     writeln('Pecahan 1 : ', p1.py,'/',p1.pb);
     writeln('Pecahan 2 : ', p2.py,'/',p2.pb);
     writeln('Hasil jumlah : ',jumlah.py,'/',jumlah.pb);
     writeln('Hasil kurang : ',kurang.py,'/',kurang.pb);
     writeln('Hasil kali : ',kali.py,'/',kali.pb);
     writeln('Hasil bagi : ',bagi.py,'/',bagi.pb);
end.

Hasil Program