Question

1)Var s,k,i:integer; Begin s=0 For k := 3 to 8 do s := s + 9; Writeln(s); End.
2)Var s,k,i:integer;
Begin
s=100
For k := 1 to 9 do
s := s - 5;
Write(s);
End.
3)Var s,k,i:integer;
Begin
s:= 1
For k := 1 to 7 do
s := s * 2;
Write(s);
End.
4)Var s,k,i:integer;
Begin
k:= 4
For i := 1 to 3 do
k := i + 2*k;
Writeln(k);
End.

Answer 1

1) 54
2) 55
3) 128
4) 43