Declare Batai Buvo(2); Begin Dingo(1); Batai.status := 'nerandu'; If Tureciau(batai) = 2 Then Keliauti_pas('vaikai'); Elsif Batai.status = 'nerandu' Then Niekur_eiti_negaliu; End If; While Rankytes = Iesko(batai) Loop Akytes_ji_pamato; End Loop; Apsimauti(batai, 2); Keliauti_pas('vaikai'); End;