المثال الأول :

هذا البرنامج يقوم بإدخال 10 أعداد من المستخدم ويطبع العدد الأكبر منها

Program FindLargest(input,output);

Var

n,max:real;

i:integer;

flag:boolean;

Begin

Max=0;

 flag:=true;

 for i:= 1 to 10 do

  begin

     Write('Enter The Number :');

     readln(n);

     if flag then

             begin

                max:=n;

                flag:=false

                end

     else

      if n>max then max:=n

  end;

  Write('The large number = ',max)

End.

في هذا المثال نلاحظ أن الشرط الأول للدالة For  سوف يتنفذ مره واحد عند تنفيذ التكرار وبعدها سوف ينفذ

الشرط الثاني لباقي الأعداد

فرضنا في هذا المثال للقيمة Max  قيمة أوليه صفر وبدانا في إسناد القيم المدخله إليه كلما كانت أكبر

ولكن هنالك حل للمثال أسهل وأبسط للفهم

Program FindLargers(input,uotput);

Var

    max,n:real;

    j:integer;

Begin

 max:=-maxint;

for j:= 1 to 100 do

  begin

    write('Enter the number :');

    read(n);

    if n>max then max:=n;

  end;

  Write('the large number=',max:9:3);

End.

في المثال الثاني عرفنا القيمة Max  كما بالمثال الأول ولكن بالبداية أسندنا لها القيمة -MaxInt

وبذلك جعلنا لها قيمة ما لا نهاية ولكن بالسالب وهذه الخاصة مضاده لMaxInt  والتي يقصد بها

ما لا نهاية بالموجب