CONTOH PROGRAM PASCAL KELULUSAN

Program kelulusan;
uses crt;
var
 nilai:integer;
begin
 clrscr;
 write('jumlah nilai:');
 readln (nilai);
 if nilai<=60 then
 begin
 writeln ('Tidak Lulus');
 end
 else
 begin
 writeln('Lulus');
 end;
 readln;
end.

Output: