blob: 61819aadaf50bbc3fbb100dc981a6d45761bb3e4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
Program XXX;
(* *)
(* See ../README.md *)
(* *)
(* *)
(* Run as: fpc -och-1.out ch-1.p; ./ch-1.out *)
(* *)
begin
writeln (' ^^^^^');
writeln (' ^ ^');
writeln (' ^ ^');
writeln (' ^ ^');
writeln (' ^ ^');
writeln (' ^ ^');
writeln (' ^ ^');
writeln (' ^ ^');
writeln (' ^ ^');
writeln (' ^ ^');
writeln (' ^^^^^');
writeln (' ^');
writeln (' ^');
writeln (' ^');
writeln (' ^^^^^');
writeln (' ^');
writeln (' ^');
end.
|
