program TwoNumberCalculator;
uses crt;

var
  num1, num2, result: integer;
  operation: Char;
  isDivide : Boolean;
  validOperator : Boolean;

begin
  validOperator := true;
  readln(num1);
  write(num1, ' ');

  readln(operation);
  write(operation, ' ');

  readln(num2);
  write(num2, ' ');

  case operation of
    '+': result := num1 + num2;
    '-': result := num1 - num2;
    '*': result := num1 * num2;
    '/': 
        if num2 <> 0 then
          isDivide := true
        else
          begin
            write('= Undefined');
            validOperator := false;
          end;
    else
        validOperator := false;
        writeln('Invalid operator.');
  end;
  
  if (validOperator) then
    if (isDivide) then
      write('= ', ((num1 / num2) * 1.0):0:2)
    else
      write('= ', result);
  
  
end. 

Pascal Online Compiler

Write, Run & Share Pascal code online using OneCompiler's Pascal online compiler for free. It's one of the robust, feature-rich online compilers for Pascal language. Getting started with the OneCompiler's Pascal editor is easy and fast. The editor shows sample boilerplate code when you choose language as Pascal and start coding.