Помогите написать программу на паскале.

Федя с клавиатуры последовательность натуральных чисел. Он хочет получить и вывести на экран максимально возможную сумму трех чисел из последовательности, каждое из которых оканчивается на цифру 3.
Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 3. Количество чисел не превышает 10 в 6. Введённые числа не превышают 30000.
Программа должна вывести одно число - максимальную сумму трех чисел, каждое из которых оканчивается на цифру 3. Если чисел, отвечающих условия не нашлось, выводится 0.
Пример: 
вход: 6 7 13 15 3 23 103
вывод: 139

И у вас ввод не соответствует вводу в условии.

что не так с вводом?

Там просто вводятся числа, без текстовых подсказок и проверок, из-за ввода в 1 ряд в вашем коде могут возникнуть проблемы при проверке в тестовой системе

не написано что нужно вводить одной строкой

Вам пример ввода предоставили

Нет слова типа "должно", нет условия "иначе" что делать, если вдруг число будет больше? Нет такого пункта как запросить заново ввод

begin var n := ReadInteger('n ='); var a := ReadArrInteger(n); if a.Where(x -> x mod 10 = 3).Count >= 3 then a.Where(x -> x mod 10 = 3).SortedDescending.Take(3).Sum.Println else Print(0)end.

Способов много, n необязательно отдельно получать, она дальше же у вас нигде не используется

это чтоб человек не путался при вводе, а вообще это все должно оговариваться, наверное

А, единсвенное забыл написать, когда элементов мало будет, завтра исправлю

Федя с клавиатуры последовательность PascalABC.NET

PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018

begin

 var a := ReadArrInteger(ReadInteger).Where(t -> t mod 10 = 3)

                                                                 .SortedDescending;

 Println(a.Count >= 3 ? a.Take(3).Sum : 0)

end.