Найти значение k.
var k, i: integer;
begin
k := 4;
for i := 1 to 3 do
k := i + 3 * k;
writeln\(k\);
end.