StellarisY

Ответ:

Var a,i : integer;

Begin

a:=1;

For i:=1 to 8 do a:=a*2;

write(a);

End.

abdusabirovdavlat555

Verified answer

Ответ:

наверно можно было бы это все дело сделать проще но это самый логичный способ