Сколько раз выполнится оператор while в следующем фрагменте программы: s: =0; k: =1; while s< =7 do begin k: =k+1; s: =s+k end

O__o

var
i, s : Integer;
begin

for i := 1000 to 9999 do
if (i * 4 >= 1000) and (i * 4 <= 9999) then
begin
s := i * 4;
if ((i mod 100) div 10 = ( s div 1000)) then
if ((i mod 10) = ( s mod 1000) div 100) then
if ( i div 1000 = (s mod 100) div 10) then
if ( ((i mod 1000 div 100) <> i div 1000) and ((i mod 1000 div 100) <> (i mod 100) div 10) and ((i mod 1000 div 100) <> i mod 10)) then
if ( (s mod 10 <> s div 1000) and (s mod 10 <> (s mod 1000) div 100) and (s mod 10 <> (s mod 100) div 10)) then
Writeln(i, ' = ', i * 4);
end;

Readln;
end.

      саксофон     пиан      ударн                    географ.фак     ист.фак   физ.фак.  биолог

М          +                 -              -                                     -                     -                                      

В           -                +              -                                      +                    -                -                  -

А           -                  -             -                                     -                    +                 -                 -            

Л           -                 -             +                                      -                   -                                         

Валерий пианист - географич. фак