Задание

VAR S,K: INTEGER;

BEGIN

S:=1;

FOR K:=3 DOWNTO 0 DO

S:=S*3;

WRITELN (S)

END.