Program noval;

uses wincrt;

var a,b,c:integer;

begin

     writeln('Aplikasi untuk menghitung perkalian dua bilangan');

     writeln('Masukkan angka pertama : ');read(a);

     writeln('Masukkan angka kedua   : ');read(b);

     c:=a*b;

     writeln('Hasilnya adalah : ',c);

end.