Menampilkan Bilangan Ganjil

program Pengulangan;
uses wincrt;
var i : integer;
begin
clrscr;
for i := 1 to 50 do
if(1 mod 2 = 1) then
write (1,' ');
readln;
end.

Program For ... to ... do

Contoh program For .. to .. do
Program For_Majemuk;
uses wincrt;
var i,j : Integer ;
begin
clrscr;
for i := 1 to 3 do
begin
for j:= 1 to 5 do
write ('*');
writeln;
end;
end.

Algoritma
1. tentukan variabel yang akan digunakan
2. masukkan perintah for i:= 1 to 3 do
3. setelah itu masukkan lagi perintah kedua

4. masukkan perintah write ('*')
5. dan yang terakhir masukkan perintah end.

Flowchart Case ... of

Program Case ... Of

Program Garmen_jaket;
uses wincrt;
var Ukuran : Char;
     Banyak : Integer
     Harga, Jumlah : real;
begin
clrscr;
write('Ukuran jaket (S/M/L) : '); readln(Ukuran);
write('Banyak Jaket  : ');readln(Banyak);
case Ukuran Of
'S'  : Harga := 65000;
'M' : Harga := 71000;
'L'  : Harga := 74000;
end;
Jumlah:= Banyak * Harga ;
writeln; writeln;
writeln('Jumlah yang harus dibayar = Rp',Jumlah:8:0);
end.