Question

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

Answer 1

var x: integer;

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

Вывод 
13