Вопрос Помогите с программированием

[евгеша]

в1
1. напишите число, которое будет напечатано в результате выполнения программы
var s, n:integer;
begin
s:=33; n:=1;
while s>0 do begin
s:=s-7;
n:=n*3
end;
writeln
end.

2. что будет напечатано в результате выполнения программы при получении на вход числа х=986
var x, l, m:integer;
begin
readln(x);
l:=0; m:=0;
while x>0 do begin
l:=l+1;
if x mod 2=0 then m:=m+(x mod 10) div 2;
x:=x div 10;
end;
writeln(l); write(m);
end.

НАПИСАТЬ ПРОГРАММЫ РЕШЕНИЯ 3Х ЗАДАЧ С ИСПОЛЬЗОВАНИЕМ РАЗНЫХ ОПЕРАТОРОВ ЦИКЛА НА free pascal
3. дана последовательность натуральных чисел. заканчивающихся нулем. найти максимальное значение среди чисел, кратных 5, если таковых не имеется, то вывести соответствующее сообщение. а также найти среднее арифметическое данной последовательности чисел, ноль при этом не учитывается
4. найти количество чисел фибоначчи, не превосходящих заданного натурального числа N.
5.дано дейтвительно число k>1. получить наибольшее число n, при котором 4^n(4 в степени n)