25 lines
485 B
Text
25 lines
485 B
Text
\Department numbers
|
|
code CrLf=9, IntIn=10, IntOut=11, Text=12;
|
|
integer P, S, F;
|
|
|
|
begin
|
|
Text(0, "POLICE SANITATION FIRE");
|
|
CrLf(0);
|
|
P:= 2;
|
|
while P <= 7 do
|
|
begin
|
|
for S:= 1, 7 do
|
|
if S # P then
|
|
begin
|
|
F:= (12 - P) - S;
|
|
if (F > 0) & (F <= 7) & (F # S) & (F # P) then
|
|
begin
|
|
Text(0, " "); IntOut(0, P);
|
|
Text(0, " "); IntOut(0, S);
|
|
Text(0, " "); IntOut(0, F);
|
|
CrLf(0)
|
|
end
|
|
end;
|
|
P:= P + 2
|
|
end;
|
|
end
|