Program sederhana dengan menggunakan While..or.. do..

program whileordo;
uses
wincrt;
var c:char;
begin
clrscr;
c:='y';
while (c='y') or (c='Y') do begin
writeln('.....UNTUKMU LOGIKAKU......');
writeln('by.Bang-Iconk');readln;
writeln('Terhenyakku akan bahasamu');
writeln('Unik,menarik dan tentu bukan bahasa semu'); readln;
writeln('("JIKA INI MAKA ITU, BILA INI BILA,MAKA BILA INI JIKA MAKA")');readln;
writeln('Oupsss...'); readln;
writeln('Logika yang kupunya tiada mampu tuk menggapai'); READLN;
writeln('Jari jemariku menari');
writeln('Mencari BUG area hitam yang kau tandai');readln;
writeln('Lama logikaku berputar dengan berbagai macam pendekatan struktural');
writeln('Akhiirnya kutemukan maknamu dalam lingkaran procedural'); readln;
writeln('Bukanlah variable namun....');
writeln('ENGKAULAH KONSTANTA YANG TAK TERGOYAHKAN');readln;
writeln('Ulangi Lagi Atau Selesai...tekan(Y/N)?');
Readln(c);
clrscr;
end;
end.