Определите, что будет напечатано в результате работы следующей программы. Постройте трассировочную таблицу

var s,k: integer;

begin

s:= 2;

for k:= 1 to 3 do

s:= s*s;

write(s);

end.
ДАЮ 25 БАЛЛОВ ПЕРВОМУ