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

var n,a,max,i:integer;beginwrite('n = ');readln(n);max:=-30000;writeln('Вводите числа:');for i:=1 to n do begin readln(a); if (abs(a) mod 10=3)and(a<0)and(a>max) then max:=a; end;if max=-30000 then writeln('Нет чисел, оканчивающихся на 3')else writeln('max = ',max);end.Пример:n = 5Вводите числа:5618-703103-243-815max = -243