Дано цілі числа a та b. вивести результат і хід обчислень суми, різниці, добутку, частки цих чисел

var a,b:integer;
begin 
write('a= ');
read(a);
write('b= ');
read(b);
writeln('сумма ', a+b);
writeln('разность ', a - b);
writeln('произведение ', a*b);
if b=0 then   
writeln('Ошибка! Деление на 0')
else   
writeln('деление ', (a / b):0:3);
end.