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