помогите прошу срочно нужно 2 и 3 пррям очень срочно

Var Ne,Nk:integer;BeginFor Ne:= 0 to 8 do    Begin    For Nk:= 1 to 5 do        Write((Ne*5+Nk):2,' ');    WriteLn    End;End.Vara,b:integer;Begina:=0;b:=0;While a < 7 do   Begin   a:=a+1;   b:=b+a   End;WriteLn('b = ',b);End.