Алгоритм->Паскаль

[Toofy]

Доброго времени суток. Очень-очень не помешает ваша помощь, коллеги. Скоро зачет, а у меня практически ничего не готово
В общем, есть алгоритмы, и их надо переделать в паскаль. Чтобы это реализовать, опыта и знаний у меня не хватает. Помогите, пожалуйста, кто чем может.
1:


2:
Значение переменной F, если начальные значения переменных A, B и C равны 1, 1 и 4 соответственно, будет равно …



Ну и еще дополнительные:
1:
C. Значения переменных a и b*после вычисления выражений

a := 15 div (16 mod 7);
b := 34 mod a * 5 – 29 mod 5 * 2
будут равны …
(Справка: x div y – результат деления нацело x на y.
x mod y – остаток от деления нацело x на y)
Варианты ответов:
1) a=7, b=22
2) a=1, b=160
3) a=1, b=4
4) a=7, b=25
2:
D. Укажите результирующие значения переменных a и b после выполнения приведенного ниже фрагмента алгоритма

а = -13; b = 5
Если а < 0 то а = -а
Если b < 0 то b = -b
Пока выполняется условие (a > b) делать а = а - b

Варианты ответов:
1) a = 8, b = 5
2) a = 3, b = 5
3) a = -13, b = 5
4) a = -18, b = 5

[casekey]

1) a=7, b=22
2) a = 3, b = 5

[Zer0]

1)

var q,z:integer;
begin
q:=9; z:=27;
if (3*q>=z) and (q-z<0) then begin 
  q:=abs(q)-z; z:=abs(q);
end else begin
  z:=z-q; q:=abs(z);
end;
writeln ('q=',q,'; z=',z);
readln;
end.

[Zer0]

Вы уверены что нужно перевести в паскаль? тут по моему ответы должны быть прямые:

1) вместо вопроса знак "<"
2) F=6
C) 1 вариант
D) a=3, b=5

[Toofy]

Спасибо, Zer0. Очень помог!