Contact: aviboots(AT)netvision.net.il
41,379 questions
53,922 answers
573 users
program Example; var a, b, theSum : integer; procedure sum(a, b: integer; var theSum: integer); begin theSum := a + b; end; begin a := 24; b := 80; sum(a, b, theSum); writeln(a, ' + ', b, ' = ', theSum); end. (* run: 24 + 80 = 104 *)