Помогите, как можно быстрей , пожалуйста

Question

Помогите, как можно быстрей , пожалуйста

---

Comments

13

Answer 1

Var x: integer;

begin
x:=1;
while x<10 do<br>begin
x:=x+3;
x:=x+1;
end;
writeln(x);
end.

Вывод 
13