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

Var s, k: integer;
Begin
s := 1;
for k := 3 downto 0 do
s := s*3;
write \(s\);
End.