Program Menghitung Luas Persegi Panjang

program luas_persegipanjang;
uses wincrt;
var a, b, nilai: integer;
begin
writeln('Program Penghitung Luas Persegi Panjang');
writeln('Masukkan nilai panjang');
readln(a);
writeln('Masukkan nilai lebar');
readln(b);
nilai:=a*b;
write('Luas Persegi Panjang adalah ');
writeln(nilai);
end.