PROGRAM LUAS LINGKARANG

Program Perkalian;
Uses crt;
var a,b,hitung:integer;
begin
  clrscr;
  write('Masukkan Bil1: ');
  readln(a);
  write('Masukkan Bil2: ');
  readln(b);
  hitung:=a*b;
  writeln('Hasil kali Bil1*Bil2 = ', hitung);
  readln;
end.