Дан фрагмент программы на языке Паскаль:
Var tab:array[1..10] of integer;
a:integer;
b:integer;
Begin tab[1]:=2;
tab[2]:= -1;
tab[3]:= 10; tab[4]:= 5;
tab[5]:= -10; tab[6]:=6;
tab[7]:=8; tab[8]:= -3;
tab[9]:= 9; tab[10]:=12;
a:=2; b:=tab[1];
while a<=10 do begin
if b< tab[a] then b: =tab[a];
a:=a+1;
end;
write(b);
end.
что будет напечатанно на экране в результате выполнения программы? в ответ дайте толтко число ​