SHARE
TWEET

Latihan 7 Console Free Pascal

stevennathaniel Jan 1st, 2014 93 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program Latihan7;
  2.  
  3. {$mode objfpc}{$H+}
  4.  
  5. uses
  6.   {$IFDEF UNIX}{$IFDEF UseCThreads}
  7.   cthreads,
  8.   {$ENDIF}{$ENDIF}
  9.   Classes
  10.   { you can add units after this };
  11.  
  12. var
  13.  
  14.   i: integer;
  15.   Count: Integer;
  16.  
  17. begin
  18.  
  19.   write('Berapa kali ?  ');
  20.   readln(Count);
  21.  
  22.   for i:= 1 to Count do
  23.  
  24.   begin
  25.  
  26.     writeln('Cycle number: ', i);
  27.  
  28.     writeln('Hello there');
  29.  
  30.  
  31.     end;
  32.  
  33.   write('tekanlah ENTER untuk menutup aplikasi');
  34.  
  35.   readln;
  36.  
  37.  
  38.  
  39. end.
RAW Paste Data
Top