Определите значение переменной s после выполнения фрагмента программы:
s:=0; k:=0;
while s < 1024 do
begin s:=s+10; k:=k+1; end;