Помогите плиз
25 баллов!
4)Сколько раз будет выполнен этот цикл?
i:=2;

while i<5 do begin

writeln('Привет!');

i:=i+1;

end;



5)Какое число нужно написать вместо многоточия, чтобы цикл выполнился ровно 2 раза?
i:=...;

while i>=6 do begin

writeln('Привет!');

i:=i-1;

end;



6)Чему будет равно значение переменной «a» после выполнения этого цикла?
i:=3;

a:=12;

while i<3 do begin

a:=a+i;

i:=i+1;

end;



7)Сколько строк напечатает программа:
var k,l:integer;

begin

k:=8;

while k>0 do

begin

l:=10;

while l<15 do

begin

writeln('Мне нравится Паскаль.');

l:=l+1;

end;

k:=k-1;

end;

end.