Какое число получится и каким образом оно получилось?
Var s, n: integer;
Begin
s := 2;
For n := 2 to 5 do
s := s*2 + n;
Writeln(s);
End.