определите, что будет напечатано в результате выполнения следующей программы:
Var s, k: integer;
Begin
s:=2;
for k:= 0 to 2 do
s:= s*s;
write (s);
End.