Знаю примерно как решать ,но не выводится на программе паскаль(1.увеличить переменную f 6 раз,если f нечётное число,иначе увеличить на 29.2.факториал числа

1.
var f:integer;
begin
read(f);
if f mod 2<>0 then
f:=6*f
else
f:=f+29;
writeln(f);
end.
2.
var i,n,k:integer;
begin
read(n);
k:=1;
for i:=2 to n do
k:=k*i;
writeln(k);
end.