Tugas teknik kompilasi

program jum_bil; 

uses wincrt;
var
i, jum,bil: integer;
begin
jum:=0; {inisialisasi}
for i:=1 to 5 do
begin
write(‘Masukkan Bilangan = ‘);readln(bil);
jum:=jum+bil;
end;
writeln(‘Jumlah Bilangan = ‘,jum);
end.

Output program :

Masukkan Bilangan = 12 

Masukkan Bilangan = 12
Masukkan Bilangan = 12
Masukkan Bilangan = 12
Masukkan Bilangan = 12
Jumlah Bilangan = 60

Sumber : http://famagulz.blogspot.com/2013/02/beberapa-contoh-program-pascal-sederhana.html#ixzz2RGqVhxO9

Penjelasan dari program di atas :

keyword =    program jum_bil; 

                            var

                            begin

identifier =        program jum_bil; 

operator =        +

                           =

literal =            1 to 5

punctuation = ; , ada 8

token =             write(‘Masukkan Bilangan = ‘);readln(bil);

                          writeln(‘Jumlah Bilangan = ‘,jum);