S:=2 s:=s*2 нц для к от 1 до ,5

Question

S:=2 s:=s*2 нц для к от 1 до ,5

Answer 1

Var k,s:integer;
begin
s:=2;
for k:=1 to 5 do
s:=s*2;
writeln(s);
end.