12 lines
268 B
Text
12 lines
268 B
Text
module Main;
|
|
var
|
|
i,j: integer;
|
|
begin
|
|
write("A integer?:");readln(i);
|
|
write("another?: ");readln(j);
|
|
writeln("sum: ",i + j);
|
|
writeln("difference: ", i - j);
|
|
writeln("product: ", i * j);
|
|
writeln("quotient: ", i div j);
|
|
writeln("remainder: ", i mod j);
|
|
end Main.
|