С использованием разработанного собственного модуля

Program program;
uses crt;
var
a,b,d,e,f,g:real;
c:integer;
begin
writeln('Введите 2 числа');
readln(a,b);
writeln('1-сложение, 2-вычитание,3-умножение, 4-деление');
readln(c);
if c=1 then
begin
d:=a+b;
 
end;
if c=2 then
begin
d:=a-b;
 
end;
if c=3 then
begin
d:=a*b;
 
end;
if c=4 then
begin
d:=a/b;
 
end;
writeln(d);
end.

unit MyUnit;
 
interface
 
function addition(a, b: real): real;
function subtraction(a, b: real): real;
function multiplication(a, b: real): real;
function division(a, b: real): real;
 
implementation  
 
function addition(a, b: real): real;
begin
  addition := a + b;
end;
 
function subtraction(a, b: real): real;
begin
  subtraction := a - b;
end;
 
function multiplication(a, b: real): real;
begin
  multiplication := a * b;
end;
 
function division(a, b: real): real;
begin
  if b <> 0 then
    division := a / b
  else
    writeln('Ошибка! Деление на 0!')
end;
 
begin
end.

uses myunit;
 
var
  a, b, d: real;
  c: integer;
 
begin
  writeln('Введите 2 числа');
  readln(a, b);
  writeln('1-сложение, 2-вычитание,3-умножение, 4-деление');
  readln(c);
  case c of
    1: d := addition(a, b);
    2: d := subtraction(a, b);
    3: d := multiplication(a, b);
    4: d := division(a, b)
  else
    writeln('Некорректная операция!');
  end;
  writeln('Результат: ', d);
end.