Membandingkan dua bilangan

Ni source codenya :
program nilai;
uses wincrt;
var
nilai1,nilai2 : integer;
Hasil : integer;
begin

writeln('++++++++++++++++++++++++++++++++++++');
writeln('+ Program membandingkan 2 bilangan +');
writeln('++++++++++++++++++++++++++++++++++++');
writeln;

write('Masukkan Bilangan 1 : ');read(nilai1);
write('Masukkan Bilangan 2 : ');read(nilai2);
writeln;
write('Hasilnya : ');
if nilai1>nilai2 then
write(nilai1,' lebih besar dari ',nilai2)
else if nilai2>nilai1 then
write(nilai2,' lebih besar dari ',nilai1)
else                         
write(nilai1,'=',nilai2);


end.

Dan ni gambar running programnya :