Var a,b:longint;beginreadln(a,b);writeln(a+b);writeln(a-b);writeln(a*b);
end.
Что то подобное без программирования, только формулы.
Если использовать VBA, можно получить лучше оформленные отчеты.
Цифровые - 0 и 1. остальное состоит из 0 и 1
Если у Марии было 3 собаки, то сколько их стало, когда Мария отдала 1 собаку Маше?