ИНФОРМАТИКА 9 КЛАСС ПОМОГИТЕ ПОЖАЛУЙСТА
Дан целочисленный массив из 20 элементов. Элемента массива ввести с клавиатуры. Найти сумму первого и третьего по порядку двузначных чисел. В массиве гарантированно есть более трёх двузначных чисел.
Отсортируйте заданый линейный массив по убыванию.

const n=20;var a: array [1..n] of integer;i,s,k,v,j: integer;beginfor i:=1 to n doreadln (a[i]);writeln (a);for i:=1 to n doif (a[i] div 100 = 0) and (a[i] div 10 <> 0) thenbegink:=k+1;if k=1 then s:=s+a[i];if k=3 then s:=s+a[i]end;writeln (s);for i:=1 to n dobeginfor j:=1 to n-1 doif a[j]<a[j+1] thenbeginv:=a[j];a[j]:=a[j+1];a[j+1]:=vendend;writeln (a)end.