Я хочу завершить эту программу калькулятора.Расчет начинается, когда пользователь вводит =

Question

Program calculator;
Var
N : integer ;
Op : char;
Begin
Repeat
  Writeln('Enter a number : ');
  Readln(N);
  Writeln('Enter an operator : ');
  Readln(Op);
Until ( Op = '=');

Тогда что мне делать дальше, чтобы сделать расчет и показать его на экране