pascal program persegi panjang

program persegi_panjang;
uses crt;
Var
Lebar :Integer ;
Panjang :Integer ;
Luas :Integer ;
begin
Clrscr ;
Write ('masukan panjang :');
Readln (panjang );
Write ('masukan lebar :');
Readln (lebar);
Writeln ;
Luas := panjang *lebar ;
Writeln ('luas persegi panjang =', luas );
End.