Задание

Запишите зна­че­ние переменной s, по­лу­чен­ное в ре­зуль­та­те работы сле­ду­ю­щей программы.

Var s,k: integer;

Begin

s := 2;

for k := 1 to 3 do

s := s*s;

writeln(s);

End.