Program XXX; (* *) (* See https://theweeklychallenge.org/blog/perl-weekly-challenge-155 *) (* *) (* *) (* Run as: fpc -och-1.out ch-2.p; ./ch-2.out *) (* *) begin writeln ('8') end.