tabel program

program tabel_perkalian;
uses wincrt;

Var
  X,Y,Z      : integer;

  Begin
    WriteLn('       TABEL  PERKALIAN       ');
    WriteLn('==============================');
    WriteLn('|   X   |    Y   |   Hasil   |');
    WriteLn('==============================');

     X := 10;
      Repeat  {awal perulangan X}
       Y := 10;
        Repeat {awal perulangan Y}
          Z := X*Y;
            WriteLn(X:5, Y:9, Z:10);
          Y := Y+1;
        Until Y > 13; {akhir perulangan Y}
          X := X+1;
       Until X > 13; {akhir perulangan X}

    WriteLn('=============================');
    WriteLn;
    WriteLn('Tekan Enter untuk Keluar');
    ReadLn;
   End.