Задание

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

Var s, k: integer;

Begin

s := 1;

for k := 0 to 4 do

s := s*3;

write (s);

End.