ipke

Program earth;

uses earth, wind, water, fire;

var man, woman : char;
      war, life, peace: boolean;

BEGIN
   while peace do
   begin
            make(man,woman);
            if (war=true) then
            begin
                      while (life=true) do
                      begin
                             seek and destroy;
                       end;
            end
            else begin end;
     end;
     end;
     end;
     end;
     end;
     end; 
END.

//:Ipke