Pemrograman Pascal Menampilkan Perkalian dengan Array menggunakan (For to do)

Buatlah program dengan menggunakan bahasa pemrograman pascal untuk menampung 5 angka kedalam 1 buah array, dan menampilkan hasil perkalian angka-angka yang diinputkan tersebut dengan urutan indeks array, seperti dibawah ini:

Contoh Output yang diharapkan:

Input bilangan ke-1 : 10 

Input bilangan ke-2 : 20 

Input bilangan ke-3 : 30 

Input bilangan ke-4 : 40 

Input bilangan ke-5 : 50 

==================================== 

 10 x 1 = 20 

 20 x 2 = 40 

 30 x 3 = 90 

 40 x 4 = 160 

 50 x 5 = 250

Contoh Program:

Program soaluas5;

uses crt;

var

        nilai : array[1..5]of integer;

        i: integer;

begin

  clrscr();

  for i:=1 to 5 do

  begin

    write('input bilangan ke-',i,' :');readln(nilai[i]);

  end;

  writeln('============================');

    for i:=1 to 5 do

    begin

        writeln(nilai[i],'x',i,'=',nilai[i]*i);

        end;

    readln;

end.

Hasil Output Program: