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

Вопрос школьника по предмету Информатика

дано цілі числа 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.