Contoh Listing Program Pascal

Diposkan oleh sMoKeRaGoN di 20.46 uses wincrt;
var na,ni,sex:string;
var age,b,c,baru,lulus:integer;
begin
clrscr;
write('masukan nama : ');
readln(na);


write('masukan nim : ');
readln(ni);

write('jenis kelamin : ');
readln(sex);

clrscr;
write('masukan tahun lahir : ');
readln(age);
write('tahun sekarang : ');
readln(b);
c:=b-age;


write('tahun masuk : ');
readln(baru);

write('tahun slesai : ');
readln(lulus);
c:=lulus-baru;


clrscr;
writeln('NAMA = ',na);
writeln('NIM = ',ni);
writeln('SEX = ',sex);
writeln('umur = ',c,' ','tahun');
writeln('tahun masuk : ',baru);
writeln('lulus = ',c,' ','taun baru lulus');

end.

sumber  : http://smokeragon.blogspot.com/