Spis treœci - Patrz

W tym przypadku ostateczny wynik otrzymany w każdym programie P musi być„przepychany" przez wszystkie następne programy tak, aby trafił na wyjście ostatniego z nich.Rozwiązanie uzyskano przez proste przetłumaczenie rozwiązania 5.4.10 na językPascal. Program P1 wczytuje daną n ze swego standardowego wejścia, po czym uruchamia n„fal". Liczby przekazywane w poszczególnych falach oddzielono od ostatecznych wynikówznakiem końca linii. Program P może nie uczestniczyć w obliczeniach, jeśli nie dotrze do niegożadna fala, ale zawsze musi on przekazywać ostateczne wynikł obliczeń. Ostatnią instrukcjąprogramu P jest przekazanie swojego wyniku, można ją jednak wykonać tylko wtedy, gdyprogram uczestniczył w obliczeniach, dlatego przedtem jest badana wartość zmiennej x.program P1;var n:integer;beginreadln(n);if n>0 then beginwrite(n-l:4);while n>l do beginwrite(l:4);n := n - 1endend;writeln;write(l:4)end.{uruchamianie fal}{wysłanie pierwszego}{współczynnika}program P;var x,y,n: integer;beginx := 0;if not eoln then beginread(n);{wczytanie liczby fal}x := 1;if n = 0 then y := 0else beginwrite(n-l:4);{liczba fal dla sąsiada}read(y);while n>l do beginx := x + y;write(x:4);n := n - 1;read(y)endendend;readln;writeln;while not eof do beginread(n); write(n:4); {przepychaniewynikow}end;if x > 0 then write(x+y:4) {własny wynik}end.Programy uruchamiamy pisząc na przykład polecenie postaci:Pl|P|P|P|P|P|P|P|P|Pprzy czym liczba uruchomionych programów P musi być większa niż podawana przezużytkownika dana n.280