hola tengo que modificar el siguiente programa:
program Operaciones;
uses
crt;
var
primer_numero : real;
segundo_numero : real;
procedure entrada(var n1, n2 : real);
begin
write(' Entre Primer Num. : ');
readln(n1);
write(' Entre Segundo Num. : ');
readln(n2);
end;
function suma(n1, n2 : real) : real;
begin
suma := n1 + n2;
end;
procedure presenta_resultados;
begin
writeln('**** El Resultado De La Suma ****');
writeln(' Es : ',suma(primer_numero,segundo_numero):0:2);
readkey;
end;
begin
clrscr;
entrada(primer_numero,segundo_numero);
clrscr;
writeln(' La Operacion Sera : ',primer_numero:0:2,' + ',
segundo_numero:0:2);
writeln;
presenta_resultados;
end.
y debe ser un procedimiento en vez de una funcion. gracias de antemano.
