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

3 раза.
После первого прохождения цикла 
s=2; k=2;
после 2  прохождения цикла 
s=5; k=3;
после 3  прохождения цикла 
s=9; k=4; 
при следующей проверки условие s<=7 не выполниться так как s>7