Computer and Programming

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

procedure input;
begin
writeln('masukkan nilai A=');readln(a);
writeln('masukkan nilai B=');readln(b);
writeln('masukkan nilai C=');readln(c);
end;

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

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

end;


begin
input;
tambah;
kali;
end.