Latihan 9 Free Pascal Console

program Latihan9;

{$mode objfpc}{$H+}

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


var

  x, i : Integer;
begin

  write('Mohon masukan sebuah angka: ');

  readln(x);

  for i := 12 downto 1 do

  writeln(x, ' * ', i, ' = ', x * i);

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

end.