Если ты сдаешь эту задачу на сайт acmu.ru или acmp.ru:var a, b: longint;beginassign(input, 'input.txt'); reset(input);assign(output, 'output.txt'); rewrite(output);read(a, b);write(b - 1, ' ', a - 1);end.А, если ты её просто учителю показываешь:var a, b: longint;beginwrite('Сколько банок прострелил Гарри? ');readln(a);write('Сколько банок прострелил Ларри? ');readln(b);writeln('Гарри не прострелил ', b - 1, ' банок');writeln('Ларри не прострелил ', a - 1, ' банок');end.