Latihan 8 Free Pascal Console

program Latihan8;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };


var


  x, i: integer;

begin

  write('Tolong isikan nomer berapapun: ');
  readln(x);

  for i:= 1 to 12 do
  writeln(x, ' * ', i, ' = ', x * i);

  writeln('Tekan tombol ENTER untuk menutup');
  readln;


end.