Дано 15 целых чисел. определить, сколько из них больше предыдущего и последующего чисел. найти сумму цифр каждого такого числа.
Выполнить в среде разработки паскаль

встретились перед запуском мелкие ошибки. но теперь повторно объявленный идентификатор а.

+ сумму не выводит.

нужно определить количество. не правильно решено. по прежнему жду решение.

program A;var a,i,n:integer;a:=15;i:=0;if a>i then writeln ('Число а больше чем i на ', a-i) else writeln       ('Число i больше чем а на ', a-i);n:=1while a<15 do begin a:=n+1+a; end;writeln (n);end.