SHARE
TWEET

Untitled

a guest Oct 15th, 2019 82 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. uses GraphABC;
  2. begin
  3.   Exec('C:\PABCWork.NET\Program2.pas', '');
  4.   Exec('C:\PABCWork.NET\Program3.pas', '');
  5.   Exec('C:\PABCWork.NET\Program4.pas', '');
  6.   Exec('C:\PABCWork.NET\Program5.pas', '');
  7.   Exec('C:\PABCWork.NET\Program6.pas', '');
  8.   Exec('C:\PABCWork.NET\Program7.pas', '');
  9.   Exec('C:\PABCWork.NET\Program8.pas', '');
  10.   while True do begin
  11.    SetFontColor(clRed);
  12.    writeln('                                                                                                                                                                                                                                                          ERROR!!!');
  13.    SetFontColor(clGreen);
  14.    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');
  15.   end;
  16. end.
  17.  
  18.  
  19.  
  20.  
  21.  
  22. uses GraphABC;
  23. begin
  24.   while True do begin
  25.     SetFontColor(clRed);
  26.     writeln('                                                                                                                                                                                                                                                          ERROR!!!');
  27.     SetFontColor(clGreen);
  28.     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');
  29.   end;
  30. end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top