[ Foro de Pascal ]

funciones y case pascal

Define las funciones Suma3 y Producto3, que calculen suma y producto de tres números enteros, ingresados por el usuario, y crea un programa que haga una operación u otra según escoja el usuario (empleando "case").
ayudaaaaa!!

Hola amigo, yo estoy aprendiendo igual que tu te paso lo que hice, ojala te sirva:
------------------------
program funcionesycase;

function suma3(var a,b,c:integer):integer;
 begin
   suma3:=a+b+c;
 end;
function producto3(var a,b,c:integer):integer;
 begin
   producto3:=a*b*c;
 end;

var
 a,b,c:integer;
begin
 writeln('Escriba los 3 numeros enteros= ');
 readln(a,b,c);
 writeln('La suma de los 3 numeros es= ',suma3(a,b,c));
 readln;
 writeln('El producto de los 3 numeros es= ',producto3(a,b,c));
 readln;
end.