program FirstTry;
var
    status : boolean;

process type P1;
    begin
        while (status = false) do;
        status := false;
        writeln('Process 01');
        status := true;
    end;

process type P2;
    begin
        while (status = false) do;
        status := false;
        writeln('Process 02');
        status := true;
    end;

var
    O : array[1..10] of P1;
    T : array[1..10] of P2;
    i : integer;

begin
    status := true;
    cobegin
        for i := 1 to 10 do
            begin
                O[i];
                T[i];
            end;
    coend;
end.