Помогите прошу срочно нужно 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.