Помогите, пожалуйста, с заданием по Паскалю. Каким будет значение переменной А после выполнения операторов. А:=3; If А <4

program peremena;
const N=8;
var A:array[1..N] of integer;
I,X: integer;
begin
for i:=1 to n do
if i>N then
begin
begin
x:=a[i];
a[i]:=a[n];
a[n]:=x
end;
begin
x:=a[i+1];
a[i+1]:=a[n-1];
a[n-1]:=x
end;
end;
writeLn('массив',A[i]:8)
end.

1. Чему будет равна переменная «c» после выполнения этой программы:
a := 28;
b := 7;
b := a div b + b;
c := a mod b + a;
Ответ:
2. Чему будет равна переменная «c» после выполнения этой программы:
a := 26;
b := 6;
c := a mod b + b;
Ответ:
3. Чему будет равна переменная «c» после выполнения этой программы:
a := 28;
b := 7;
c := a div b + a;
Ответ:
4. Чему будет равна переменная «c» после выполнения этой программы:
a := 22;
b := 4;
b := a div b;
c := a div b;
Ответ:
5. Чему будет равна переменная «c» после выполнения этой программы:
a := 26;
b := 6;
b := a mod b + 4;
c := a mod b + 1;
Ответ:
6. Чему будет равна переменная «c» после выполнения этой программы:
a := 20;
b := 3;
b := a div b;
c := a mod (b + 1);
Ответ:
7. Чему будет равна переменная «c» после выполнения этой программы:
a := 28;
b := 7;
b := a mod b;
c := a div (b + 1);
Ответ:

их замуж. Пригласил женихов со всех концов света. Съехались в королевство 50 принцев и знатных юношей. Сколькими способами дочери короля могут выбрать себе женихов?
Задание2.
На одном далеком-далеком острове жило-было маленькое племя. В языке этого племени было всего 5 прилагательных, 15 существительных и 10 глаголов. Предложения в этом языке состояли либо из существительного и глагола, либо из прилагательного, существительного и глагола (порядок слов именно такой). Сколько всего предложений можно составить по правилам языка маленького племени?

второе "повідомлення".

помогите пожалуйста :)