UNIT ONP;
INTERFACE
Var num:integer;
Procedure SUMA(A,B:Integer; Var C:Integer);
Procedure RESTA(A,B:Integer; Var C:Integer);
IMPLEMENTATION
Procedure SUMA(A,B:Integer; Var C:Integer);
BEGIN
C:=A+B;
END;
Procedure RESTA(A,B:Integer; Var C:Integer);
BEGIN
C:=A-B
END;
Begin End.
Cap comentari:
Publica un comentari a l'entrada