RosettaCodeData/Task/Arithmetic-Integer/Pascal/arithmetic-integer.pascal

13 lines
211 B
Text
Raw Permalink Normal View History

2013-04-10 22:43:41 -07:00
program arithmetic(input, output)
var
a, b: integer;
begin
readln(a, b);
writeln('a+b = ', a+b);
writeln('a-b = ', a-b);
writeln('a*b = ', a*b);
writeln('a/b = ', a div b, ', remainder ', a mod b);
end.