Program arimatika Pecahan

program arimatika pecahan
uses crt;
var
   a,b,c,d:integer;
   jumlah,kurang,kali,bagi:real;
begin
   clrscr;
   write('p1 (a): ');readln(a);
   write('p1 (b): ');readln(b);
   write('p2 (c): ');readln(c);
   write('p2 (d): ');readln(d);

   jumlah:= ((a*d)+(b*c))/(b*d);
   writeln('p1+p2: ',jumlah:0:0);

   kurang:=((a*d)-(b*c))/(b*d);
   writeln('P1-P2: ',kurang:0:0);

   kali:=(a*c)/(b*d);
   writeln('P1*P2: ',kali:0:0);


   bagi:=(a*d)/(b*c);
   writeln('P1:P2: ',bagi:0:0);
   readln;;
end.