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.
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.