1. Обусловьте, что делает последующая программка и какой результат она выдаст

1. Определите, что делает последующая программка и какой итог она выдаст на данном массиве (1,4,0,-1,6).
Var a:array[1..5] of integer; i, b:integer;
begin
b:=a[ 1 ];
for i:=2 to n do if a[i]gt;b then b:=a[i];
writeln(b)
end.

2. Чему будет равно значение k после исполнения программки?
Var
m, k:integer;
begin
m:=0; k:=1;
while (mlt;5) do m:=m+1; k:=k+m;
writeln(k);
end.
Варианты ответов: а) 2;
б) 3;
в) 4;
г) 5.
Заблаговременно спасибо!