Montar uma calculadora somente com o uso de functions

{Calculadora com uso de funções}

program CalculadoraF;

USES CRT;

FUNCTION ADICAO (A, B: REAL) : REAL;
begin
   ADICAO:=A+B;
end;

FUNCTION SUBTRACAO (A, B: REAL) : REAL;
begin
SUBTRACAO:=A-B;
end;

FUNCTION MULTIPLICACAO (A, B: REAL) : REAL;
begin
   MULTIPLICACAO:=A*B;
end;

FUNCTION DIVISAO (A, B: REAL) : REAL;
begin
   DIVISAO:=A/B;
end;

VAR
   NUM1, NUM2: real;

BEGIN
   clrscr;
   write(‘Informe o primeiro numero: ‘); readln(NUM1);
   write(‘Informe o segundo numero: ‘); readln(NUM2);
   writeln(‘ o resultado da adicao = ‘ , ADICAO(NUM1, NUM2):5:2) ;
   writeln(‘ o resultado da subtracao = ‘, SUBTRACAO(NUM1, NUM2):5:2);
   writeln(‘ o resultado da multiplicacao = ‘, MULTIPLICACAO(NUM1, NUM2):5:2);
   writeln(‘ o resultado da divisao = ‘, DIVISAO(NUM1, NUM2):5:2);
   writeln(‘————————————————————–’);
END.