3. Разобраться в решении задачи. Записать условие задачи. Заполнить раздел описания переменных с указанием типа и
назначения каждой переменной.
Var
Begin
Sum:=0; x:=0;
While Sum<10 do begin
Sum:=Sum+x;
X:=x+1;
End;
Writeln(‘Sum=’,Sum);
End