Дан фрагмент программы на языке Паскаль. Укажите сколько раз выполнится цикл
x:=1;
While x ∠ ( знак меньше ) 1 do
Begin
ReadIn(A);
S:=S+A;
x:=x+0.1;
End;