Знаю примерно как решать , но не выводится на программе паскаль(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; beginread(n); k: =1; for i: =2 to n dok: =k*i; writeln(k); end.

1. программа "анкета": program anketa; var a,b,d: string; c: char; begin writeln('введите ваши имя и фамилию в именительном падеже: '); readln(a,b); writeln('введите букву класса: '); readln(c); writeln('введите ваше хобби: '); readln(d); writeln('меня зовут ',a,' ',b,'; '); writeln('я учусь в 7 "',c,'" классе гимназии 524; '); writeln('моё хобби - ',d,'; '); writeln('периметр прямоугольника равен 30'); writeln(' сегодня ярко светит солнце! ') end. 2. программа "опросы": program oprosy; var a,b,c: integer; d: real; begin writeln('введите ваши оценки по шкале: '); readln(a,b,c); d: =(a+b+c)/3; writeln('ваша средняя оценка за тесты - ',d,'.'); end. 3. программа "периметр прямоугольника": program perimetr; var a,b,c: integer; begin writeln('введите стороны прямоугольника: '); readln(a,b); c: =(a+b)*2; writeln('периметр прямоугольника = ',c,'.'); end.

Uses crt; const     n = 13; var     a: array[1..n] of integer;     i,j,min,b: integer; begin clrscr; randomize; write('исходный массив: '); for i: = 1 to n do       begin       a[i]: =random(2*n+1)-n;       write(' ',a[i])       end; writeln; write('отсортированный массив: '); for i: = 1 to n do       begin       min: =i;       for j: = i+1 to n do               if a[j] < a[min] then min: =j;       b: =a[i];       a[i]: =a[min];       a[min]: =b;       write(' ',a[i])       end; readln end.