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.