Syntax Luas Persegi Panjang

program luas_persegipanjang_00;
uses wincrt;

var panjangPSP, lebarPSP, luasPSP : integer;
BEGIN
     write ('masukkan panjang persegi=');
     read (panjangPSP);
     write ('masukkan lebar persegi=');
     readln (lebarPSP);

luasPSP :=panjangPSP*lebarPSP;
writeln ('luas persegi panjang=',luasPSP);
end.