Program Pascal menggunakan IF

uses wincrt;
var
nilai_panjang:integer;
nilai_lebar:integer;
hasil:real;
begin
writeln('=========== Menghitung Luas persegi panjang ===========');
writeln;
write('Masukan panjang      = ');readln(nilai_panjang);
write('Masukan lebar          = ');readln(nilai_lebar);
hasil:=nilai_panjang*nilai_lebar;
writeln;
if (hasil=nilai_panjang*nilai_lebar) then                                            
writeln('Luas persegi panjang     = ',nilai_panjang*nilai_lebar);
writeln('================== Terimakasih =================');
                               
end.