פורטל:תוכנה/תמונה נבחרת/9

<syntaxhighlight lang="ada">

   with Ada.Integer_Text_IO;

   procedure Factorial is
        Counter   : Integer := 5;
        Factorial : Integer := 1;
   begin
        while Counter > 0 loop
          Factorial := Factorial * Counter;
          Counter   := Counter - 1;
        end loop;

        Ada.Integer_Text_IO.Put (Factorial);
   end Main;

</syntaxhighlight>

שימוש בלולאת While בתוכנית מחשב בשפת Ada המחשבת !5. שפת התכנות נקראת על שם הרוזנת עדה לאבלייס שנחשבת למתכנתת הראשונה.