{$codepage UTF8} PROCEDURE Lectura(Var a,b:integer); Begin Write('Ingrese primer sumando : ');readln(a); Write('Ingrese segundo sumando : ');readln(b); End; FUNCTION Suma(a,b:integer):integer; Begin Suma:=a+b; End; VAR a,b,c:integer; BEGIN Lectura(a,b); c:=Suma(a,b); Writeln('La Suma es ',c); END.