Задание

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

var s,k: integer;

begin

s := 2;

for k := 1 to 3 do

s := s * s;

writeln(s);

end.