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

var p, i: integer;
begin
p := 2;
for i := 15 to 17 do
p := p * 3;
writeln\(p\);
end.