PROGRAM BILANGAN

Program Bilangan; {BAGAS N DAN BAGUS F}
Uses crt;
Var a,b,d: integer;
        c: boolean;
        e: real;
Begin
        clrscr;
        Write('Masukkan nilai a : ');
        Readln(a);
        Write('Masukkan nilai b : ');
        Readln(b);
        d:=a*b;
        e:=a/b;
        c:=(a mod b =0);
        Writeln('Benarkah a kelipatan b?',c);
        Writeln('Hasil kali a dan b adalah ',d);
        Writeln('Hasil bagi a dan b adalah',e:6:2);
        Readln;
End.