Procedure Dobra_valor (Var B: integer ); Begin B: = 2 * B Writeln ( B ); End; { de dobra valor }
Begin A: = 10; Writeln ( A ); Dobra_valor ( A ); Writeln ( A ) End. (* de exemplo *)
araujo@eng.uerj.br