Repetisi6(Contoh-Variable-Integer-dg-Manual-Input-2)

program repetisi6;

{$mode objfpc}{$H+}

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

{$R *.res}
var
  x: Integer;
begin
  Write('Masukkan Nomor Secara Acak : ');
  Readln(x);
  Writeln('Nomor yang Anda Masukkan adalah : ', x);
  Writeln('Berikut ini hasil Operasi Perkalian dari : ', x);
  Writeln(x, ' * 1 = ', x * 1);
  Writeln(x, ' * 2 = ', x * 2);
  Writeln(x, ' * 3 = ', x * 3);
  Writeln(x, ' * 4 = ', x * 4);
  Writeln(x, ' * 5 = ', x * 5);
  Writeln(x, ' * 6 = ', x * 6);
  Writeln(x, ' * 7 = ', x * 7);
  Writeln(x, ' * 8 = ', x * 8);
  Writeln(x, ' * 9 = ', x * 9);
  Writeln(x, ' * 10 = ', x * 10);
  Writeln('Tekan Enter untuk Keluar');
  Readln;

end.