Program Pascal Blok

Kasus : buatlah program proses aritmatika dengan beberapa blok.
Berikut kode programnya :
 

program aritmatika;
uses wincrt;
var
b,c : integer;
a : real;



procedure penjumlahan (var a : real; b,c : integer);
begin
a:= b + c;
writeln ('Hasil Penjumlahan     : ',a:0:0);
end;

procedure pengurangan (var a : real; b,c : integer);
begin
a:= b - c;
writeln ('Hasil Pengurangan     : ',a:0:0);
end;

procedure perkalian (var a: real; b,c : integer);
begin
a:= b * c;
writeln ('Hasil Perkalian       : ',a:0:0);
end;

procedure pembagian (var a: real; b,c : integer);
begin
a:= b / c;
writeln ('Hasil Pembagian       : ',a:0:2);
readln;
end;

begin
writeln ('~~~~~~~~~~~~~~~ Pengoperasian Aritmatika ~~~~~~~~~~~~~~');
writeln;
write ('Input Nilai b : '); read(b);
write ('Input Nilai c : '); read(c);
writeln;
penjumlahan (a,b,c);
pengurangan (a,b,c);
perkalian (a,b,c);
pembagian (a,b,c);
readln;
end.

Output Program :