Определите, что будет напечатано в результате работы следующей программы.
var s,k: integer;
begin
s := 2;
for k := 1 to 3 do
s := s * s;
writeln\(s\);
end.