program ArithmeticOperations;
var
n1, n2, result: integer;
procedure Addition(a, b: integer);
begin
result := a + b;
writeln(a, ' + ', b, ' = ', result);
end;
procedure Subtraction(a, b: integer);
begin
result := a - b;
writeln(a, ' - ', b, ' = ', result);
end;
procedure Multiplication(a, b: integer);
begin
result := a * b;
writeln(a, ' * ', b, ' = ', result);
end;
procedure Division(a, b: integer);
begin
if b <> 0 then
begin
result := a div b;
writeln(a, ' / ', b, ' = ', result);
end
else
writeln('Division by zero is not allowed.');
end;
begin
writeln('Enter two numbers:');
readln(n1, n2);
Addition(n1, n2);
Subtraction(n1, n2);
Multiplication(n1, n2);
Division(n1, n2);
end.