Contoh Program

KetikLah program

Program Huruf;
uses wincrt;
var
i : integer;
HA :char;
begin
write('Input Huruf Awal:');readln(HA);
write('Input Huruf Akhir:');readln(HA);
for i:= 1 to 1 do
begin
writeln('a');
writeln('b');
writeln('c');
writeln('d');
writeln('e');
end;
end.

maka akan menampilkan:

Input Huruf Awal : _ {inputkan huruf 'a' kemudian enter}
Input Huruf Akhir:_ {inputkan huruf 'e' kemudian enter}
a
b
c
d
e

KetikLah Program

Program Urut_Angka_Jumlah;
uses wincrt;
var
i,j : integer;
begin
i:=1
while i<21 do
begin
writeln(i);
i:=i+1
end;
begin
j:=i+189
writeln('---------------');
writeln('Jumlah Semua Angka=', j);
end;
end.

maka akan menampilkan :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
----------------------
Jumlah Semua Angka=210