pascal nilai lulus

program Nilai_Lulus_UTS;
uses crt;
var
  Nilai:real;
begin
clrscr;
  writeln ('Mengetahui Nilai Lulus UTS');
  writeln;
  write ('Nilai UTS = ');readln(Nilai);
  if Nilai>=75 then
  writeln ('Lulus')
  else
  writeln ('Mengulang');
  readln;
end.