Contoh Program Paskal Pengaplikasian Looping If menggunakan For do

uses crt;
var a,b : integer;
begin
clrscr;
for a:= 1 to 6 do
begin
if a=6 then write(a,'=') else write(a,'+');
end; write((a+1)*3); readln; end.


Hasil:

1+2+3+4+5+6=21



Sumber : Pra UTS ATA 2011//2012 Algoritma & Pemprograman 2