Задание

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