SHARE
TWEET

Latihan 8 Free Pascal Console

stevennathaniel Jan 2nd, 2014 77 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program Latihan8;
  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.  
  13. var
  14.  
  15.  
  16.   x, i: integer;
  17.  
  18. begin
  19.  
  20.   write('Tolong isikan nomer berapapun: ');
  21.   readln(x);
  22.  
  23.   for i:= 1 to 12 do
  24.   writeln(x, ' * ', i, ' = ', x * i);
  25.  
  26.   writeln('Tekan tombol ENTER untuk menutup');
  27.   readln;
  28.  
  29.  
  30. end.
RAW Paste Data
Top