ПОМОГИТЕ ПОЖАЛУЙСТА 9 КЛАСС ИНФОРМАТИКА
Массив задан целыми числами: 10, 1,12,16,5,18,19,17,21,10,11. Что будет напечатано по окончании работы программы? Составить таблицу трассировки для программы:



var m, i : integer;

Mas : array[1..10] of inyeger;

begin

n:=mas[1];

for i:=2 to 10 do

if mas[i]>n then n:=mas[i];

write(n);

end.