uses
  system.sysutils;

Var
   No1 : Integer;
   No2 : Integer;
   Symbol : Char;
   Total : Integer;

Function ValidNumber : Integer;
var
 No : Integer;
begin
   repeat
  Writeln('Enter a Number');
  Readln(No);
  if No > 100 then
  Writeln ('Too Big')
   until No <= 100;

 ValidNumber := No;
end;

Procedure InputNumbers;
begin
  No1 := ValidNumber;
  No2 := ValidNumber;

end;

Procedure InputSymbol;
begin
   Write('Enter Symbol');
  Readln(Symbol);
end;

Procedure CalculateTotal;
begin
  If Symbol = ('+') Then
    Total := (No1) + (No2);
  If Symbol = ('-') Then
    Total := (No1) - (No2);
  If Symbol = ('*') Then
    Total := (No1) * (No2);
  If Symbol = ('/') Then
    Total := (No1) DIV (No2);
end;

Procedure DisplayTotal;
begin
  Writeln('Total = ',Total);
  Readln;
end;

{Main Program}
begin
  InputNumbers;
  InputSymbol;
  CalculateTotal;
  DisplayTotal;
end.