challenge-089/abigail/pascal/ch-2.p


1
2
3
4
5
6
7
8
9
10
11

Program MagicSquare;

(*                                              *)
(* For challenge and notes, see ../perl/ch-2.pl *)
(*                                              *)

begin
  writeln ('8 1 6');
  writeln ('3 5 7');
  writeln ('4 9 2');
end.