Computer and Programming

program contoh;
uses wincrt;
var a,b:integer;

procedure hitung_a;
var d,c:integer;
begin
d:=a+b+c;
writeln('output D=',d);
end;


procedure hitung_b;
var e:integer;
begin
e:=a*b;
writeln('output E=',e);
end;


begin
writeln('masukkan a=');readln(a);
writeln('masukkan b=');readln(b);
writeln('masukkan c=');readln(c);
hitung_a;
hitung_b;
end.