Пожалуйста посчитайте прошу срочно нужно 2 и 3пррям очень срочно

Var Ne,Nk:integer;
Begin
For Ne:= 0 to 8 do
    Begin
    For Nk:= 1 to 5 do
        Write((Ne*5+Nk):2,' ');
    WriteLn
    End;
End.



Var
a,b:integer;
Begin
a:=0;
b:=0;
While a < 7 do
   Begin
   a:=a+1;
   b:=b+a
   End;
WriteLn('b = ',b);
End.