uses GraphABC;
begin
  Exec('C:\PABCWork.NET\Program2.pas', '');
  Exec('C:\PABCWork.NET\Program3.pas', '');
  Exec('C:\PABCWork.NET\Program4.pas', '');
  Exec('C:\PABCWork.NET\Program5.pas', '');
  Exec('C:\PABCWork.NET\Program6.pas', '');
  Exec('C:\PABCWork.NET\Program7.pas', '');
  Exec('C:\PABCWork.NET\Program8.pas', '');
  while True do begin
   SetFontColor(clRed);
   writeln('                                                                                                                                                                                                                                                          ERROR!!!');
   SetFontColor(clGreen);
   writeln('   ',random(10)*'101','   ',random(10)*'10','   ',random(10)*'10','   ',random(10)*'110','   ',random(10)*'101','   ',random(10)*'10','   ',random(10)*'10','    ',random(10)*'110','    ',random(10)*'101','   ',random(10)*'10','   ',random(10)*'10','    ',random(10)*'110','   ',random(10)*'101','   ',random(10)*'10','   ',random(10)*'10','    ',random(10)*'110','   ',random(10)*'101','   ',random(10)*'10','   ',random(10)*'10','    ',random(10)*'110');
  end;
end.





uses GraphABC;
begin
  while True do begin
    SetFontColor(clRed);
    writeln('                                                                                                                                                                                                                                                          ERROR!!!');
    SetFontColor(clGreen);
    writeln('   ',random(10)*'101','   ',random(10)*'10','   ',random(10)*'10','   ',random(10)*'110','   ',random(10)*'101','   ',random(10)*'10','   ',random(10)*'10','    ',random(10)*'110','    ',random(10)*'101','   ',random(10)*'10','   ',random(10)*'10','    ',random(10)*'110','   ',random(10)*'101','   ',random(10)*'10','   ',random(10)*'10','    ',random(10)*'110','   ',random(10)*'101','   ',random(10)*'10','   ',random(10)*'10','    ',random(10)*'110');
  end;
end.