Perkalian deret dengan pascal

Kali ini saya akan membagikan cara untuk membuat perkalian berderet atau perkalian faktorial dengan menggunakan bahasa pemrograman pascal. Pada program ini menggunakan perulangan. semoga bisa menambah wawasan bagi para pembaca semuanya.

berikut codingnya :

program perkalianderet;

uses crt;

var

 batasawal,batasakhir,jumlah:real;

 begin

 clrscr;

 writeln('masukan awal');

 readln(batasawal);

 writeln('masukan batas akhir'); readln(batasakhir);

 jumlah:=1;

 repeat

 batasawal:=batasawal+1;

 write(batasawal:2,'x':2);

 jumlah:=jumlah*batasawal;

 until batasawal=batasakhir;

 write('=',jumlah);

 readkey;

end.

berikut screenshootnya :