stevennathaniel

Latihan 26 Free Pascal Console

Jan 16th, 2014
329
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.35 KB | None | 0 0
  1. program Latihan26;
  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.   Line: string;
  15.  
  16. begin
  17.  
  18.   Line:='Hello World';
  19.  
  20.   Insert('Pascal ', Line, 7);
  21.  
  22.   writeln(Line);
  23.  
  24.   writeln('Tekanlah tombol ENTER menutup');
  25.   readln()
  26.  
  27.  
  28.  
  29. end.
Add Comment
Please, Sign In to add comment