Пожалуйста, помогите решить 4,5,6 номера. Очень срочно!

 
Номер 4
program Other;
var
   a,b: integer;
begin
   a:=5;
   b:=0;
   if a = 1 then
     {Next action...}
   else
       begin
           b:=b+a;
           a:=a-1;
       end;
end.