while, if, repeat-until, if goto gibi loop'lara sahip program dili. 1988 yılında icat edilmesine rağmen okulda ağzımıza sıçabilmekte. bir örnek;
program numbers;
var
sum,n1,n2:integer;
begin
writeln('enter two number');
readln(n1,n2);
sum:=0;
sum:=sum+n1+n2;
wrıteln('summation=',sum);
readln;
end.
