program perkalian turbo pascal

Program perkalian_dua_buah_bilangan;

uses wincrt;

var

   bil1,bil2,jml : integer;

   lagi     :  char;

begin

 repeat

 clrscr;

   

     writeln('masukan angka yang ingin kamu hitung ');

     writeln('di program operasi perkalian dua bilangan ini');

     writeln;

     write('masukan bilangan ke1** '); Readln(bil1);

     write('masukan bilangan ke2** '); Readln(bil2);

     jml := bil1*bil2;

     writeln;

     write('hasil dari ',bil1,'x',bil2,'=',jml);

     writeln;

     writeln;

     repeat

  write('Mau coba lagi (Y/N) ??');read(lagi);

 until (lagi='Y') or (lagi='y') or (lagi='N') or (lagi='n');

until (lagi='N') or (lagi='n');

writeln;

clrscr;

gotoxy (20,10);writeln('selamat mengerjakan');   

end.