На­пи­ши­те про­грам­му, ко­то­рая в по­сле­до­ва­тель­но­сти на­ту­раль­ных чисел опре­де­ля­ет мак­си­маль­ное число, окан­чи­ва­ю­ще­е­ся на 3. Про­грам­ма по­лу­ча­ет на вход ко­ли­че­ство чисел в по­сле­до­ва­тель­но­сти, а затем сами числа. В по­сле­до­ва­тель­но­сти все­гда име­ет­ся число, окан­чи­ва­ю­ще­е­ся на 3. Ко­ли­че­ство чисел не пре­вы­ша­ет 1000. Введённые числа не пре­вы­ша­ют 30 000. Про­грам­ма долж­на вы­ве­сти одно число — мак­си­маль­ное число, окан­чи­ва­ю­ще­е­ся на 3

Program n1;var i,a,max,k: integer;beginwrite('кол-во чисел в последовательности: ');readln(k);write('введите 1 член: '); readln(a); max:=a;for i:=1 to k-1 dobegin write('введите ',i+1,' член: ');readln(a);if (a mod 10 = 3) and (a > max) thenmax := a;end;writeln('искомый член: ',max);end.