ujian

Uses WinCrt;

Var
 NilaiUjian : real;
 Ket        : string;

Begin

 
  Ket:='Tidak Lulus';
  Write('Nilai Yang Di Dapat ? ');
  Readln(Nilaiujian);
 
  
    If NilaiUjian > 60 Then Ket := 'Lulus';
    Writeln(Ket);
  
 

End.