Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

Untitled

By: a guest on Jul 29th, 2012  |  syntax: Pascal  |  size: 0.40 KB  |  hits: 15  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. program B_Basket ;
  2.  
  3. USES CRT ;
  4.  
  5. var x, y : real ;
  6. var file : text ;
  7. var i : integer ;
  8.  
  9. BEGIN
  10.  
  11.         CLRSCR ;
  12.  
  13.         Assign(file,  'C:/FPC/2.6.0/Eingabe.txt') ;
  14.         Rewrite(file) ;
  15.  
  16.         x := 4 ;
  17.         y := 2 ;
  18.  
  19.         For i := 30 to 88 DO BEGIN
  20.  
  21.             REPEAT
  22.  
  23.  
  24.                 REPEAT
  25.  
  26.                 UNTIL x
  27.  
  28.             UNTIL y
  29.  
  30.  
  31.         END ;
  32.  
  33.  
  34. END.
create a new version of this paste RAW Paste Data