14 lines
261 B
Ada
14 lines
261 B
Ada
|
type Operation is (Add, Subtract, Multiply, Divide);
|
||
|
|
Op : Operation;
|
||
|
|
Result : Integer;
|
||
|
|
-- we assume that A and B are inputs.
|
||
|
|
Result := (if Op = Add then
|
||
|
|
A + B
|
||
|
|
elsif Op = Subtract then
|
||
|
|
A - B
|
||
|
|
elsif Op = Multiply then
|
||
|
|
A * B
|
||
|
|
elsif Op = Divide then
|
||
|
|
A / B
|
||
|
|
);
|