Даны 2 положительных числа. найти сумму, разность и среднее арифмотическое.

Var a, b: integer;
begin
readln(a, b);
writeln('sum is ', a + b);
writeln('разность - ', a - b);
writeln('average - ', (a + b) / 2);
end.