acmp решение

Ответ от
что ж за люди-то ленивые? вот "рыба", уж подпилите, как надо
Program Vvod_Vivod;
var
a:longint;
t:text;
Begin
assign(t,'input.txt');
reset(t);
read(t,a);
close(t);
assign (t,'output.txt');
rewrite(t);
write(t,a-1); write(t," "); write(t,a); write(t," "); write(t,a+1);
close(t);
End.