contoh program sederhana dari pascal

uses crt;
label 100;
var Nilai : integer;
Nama, NPM, Keterangan : string;
pil : byte;
begin
100:
clrscr;
writeln('PROGRAM MENU');
writeln('------------');
writeln('1. Biodata');
writeln('2. Nilai Total Ujian');
writeln('3. Cetak & Keluar');
write('Masukkan Pilihan : '); readln(pil);
case pil of
1 : begin
clrscr;
writeln('BIODATA');
writeln('');
write('Nama : '); readln(Nama);
write('NPM : '); readln(NPM);
Goto 100;
end;
2 : begin
clrscr;
writeln('NILAI TOTAL UJIAN');
writeln('');
write('Nilai : '); readln(Nilai);
IF (Nilai > 59) AND (Nilai <= 100) then
Keterangan := ('LULUS')
else Keterangan := ('GAGAL');
goto 100;
end;
3 : begin
clrscr;
write('Mahasiswa dengan nama ', Nama, ' dengan NPM ', NPM , ' dinyatakan ', Keterangan , '!!');
readln;
end;
end;
end.


LOGIKA
Baris pertama uses crt ialah keyword awal dipakai pada bahasa pascal. Lalu label 100 adalah maksudnya akan ada suatu looping pada program nantinya. var Nilai bernilaikan integer yaitu bilangan bulat, lalu variabel Nama, NPM dan Keterangan bernilaikan kata dan variabel pil bernilaikan satu angka tunggal. keyword begin untuk memulai program, lalu 100: pada baris selanjutnya adalah maksudnya program akan mengalami looping ke baris ini ketika mendapatkan perintah goto 100. clrscr untuk membersihkan layar, lalu writeln untuk menulis dan menampilkan pada layar nantinya, lalu pada baris write tidak jauh dibawahnya untuk menuliskan dan menampilkan "Masukkan Pilihan : " dan dimasukkan ke dalam variabel pil. Lalu ada case pil of maksudnya disini ada pilihan, program akan berjalan sesuai dengan yang ditampilkan, jika memilih 1 akan mengisi Biodata, jika 2 adalah Nilai Total Ujian, jika 3 adalah Cetak & Keluar. Pada pilihan 1 ada begin disini untuk memulai pilihan ini lalu clrscr menghapus layar lalu writeln untuk menampilkan tulisan pada layar, lalu write Nama dimasukkan ke dalam variabel Nama dan NPM dimasukkan kedalam variabel NPM lalu goto 100 yaitu untuk kembali ke keyword 100: yang telah dituliskan diatas tadi, disinilah gunanya looping itu. Pada pilihan 2 begin disini untuk memulai pilihan ini lalu clrscr menghapus layar writeln untuk menampilkan tulisan pada layar, lalu write Nilai dimasukkan ke dalam variabel Nilai, dan disini ada penegasan, jika variabel Nilai lebih dari 59 dan kurang dari sama dengan 100 maka variabel Keterangan berisi LULUS selain itu variabel Keterangan berisi GAGAL lalu kembali seperti pilihan 1 yaitu looping ke keyword 100:. Pada pilihan 3 begin disini untuk memulai pilihan ini lalu clrscr menghapus layar dan write disini untuk menuliskan dan menampilkan dan menyimpulkan semua yang sudah di input dari awal tadi dan kemudian end untuk mengakhiri program