PROGRAM HITUNG(PENJUMLAHAN)

program hitung_;
uses wincrt;
var
c:integer;
procedure hitung;

var
a,b :integer;
begin
write('A=');readln(a);
write('B=');readln(b);
c:=a+b;
end;
{program utama}
begin
hitung;
write('c=',c);
end.

OUTPUT
misal
A=5
B=5
maka