Приведите два примера реакций, для которых сокращенное ионное уравнение выглядит так: Н+ + ОН- = H2O

можно ещё сократить:
var a, b, c, d: integer;
begin
     readln(d);
     writeln(d mod 100 div 10, d mod 10, d div 100);
end.

или даже:
var a, b, c, d: integer;
begin
     readln(d);
     a := d div 100;
     writeln(d - a * 100, a);
end.