Ejemplo de FUNCTION turbo pascal

En este ejemplo muestro un simple uso del Function en turbo pascal invocando la llamada de el mensaje "Hola mundo" mas el nombre ingresado

aqui el codigo:

program prog11;



uses crt;



var



nombre:string;



FUNCTION Hola_mundo(nm:string):string;



begin



write('Hola ',nm);

end;



begin

clrscr;



(* llamando function hola mundo*)

write('Ingrese su nombre ');

readln(nombre);

Hola_mundo(nombre);



readln;



end.

Descargar código:

Link

Turbo Pascal