Из 20 чисел выбрать максимальное число оканчивающееся на 3

const m = 20;var a : array [1..m] of integer ; I,max_num : byte ; begin for i:=1 to m do Read (a[i]); max_num := a[1]; for i := 2 to m do if (a[i] > max_num) and (a[i] mod 10 = 3) then max_num := a[i]; writeln ('Max = ',max_num);end.