program fungsi;
uses wincrt;
var
hasil_tambah : integer;
hasil_kali : integer;
hasil_bagi : real;
hasil_kurang : integer;
hasil_gabungan : real;
a,b : integer;
function tambah(a,b : integer) : integer;
begin
tambah := (2+a+b) + (2+a+b);
end;
function kali(a,b : integer) : integer;
begin
kali := (2*a*b) + (2*a*b);
end;
function bagi(a,b : integer) : real;
begin
bagi := (2*a/b) + (2*a/b);
end;
function kurang(a,b : integer) : integer;
begin
kurang := (2*a-b) + (2*a-b);
end;
function gabungan(a,b : integer) : real;
begin
gabungan := (2*a-b) + (2*a/b);
end;
begin
writeln(' PROGRAM ARITMATIKA');
writeln('^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^');
write('input nilai a : ');readln(a);
write('input nilai b : ');readln(b);
writeln;
hasil_tambah := tambah(a,b);
hasil_kali := kali(a,b);
hasil_bagi := bagi(a,b);
hasil_kurang := kurang(a,b);
hasil_gabungan := gabungan(a,b);
writeln('Rumus = (2+a+b)+(2+a+b)');
writeln('Hasil penjumlahan (2+',a,'+',b,') + (2+',a,'+',b,'): ',hasil_tambah);
writeln;
writeln('Rumus = (2*a*b) + (2*a*b)');
writeln('Hasil perkalian (2*',a,'*',b,') + (2*',a,'*',b,'): ',hasil_kali);
writeln;
writeln('Rumus = (2*a/b) + (2*a/b)');
writeln('Hasil pembagian (2*',a,'/',b,') + (2*',a,'/',b,'): ',hasil_bagi:0:2);
writeln;
writeln('Rumus = (2*a-b) + (2*a-b)');
writeln('Hasil pengurangan (2*',a,'-',b,') + (2*',a,'-',b,'): ',hasil_kurang);
writeln;
writeln('Rumus = (2*a-b) + (2*a/b)');
writeln('Hasil rumus gabungan (2*',a,'-',b,') + (2*',a,'/',b,'): ',hasil_gabungan:0:2);
writeln;
writeln('^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^');
readln;
donewincrt;
end.