Дан массив из 20 целых чисел заполненный случайным образом от 10 до 99 . Найти сумму десятков( пример:первых чисел из 19 и 23 найти сумму 1 и 2)

const n=20;var a:array[1..n] of integer;i,s:integer;beginRandomize;for i:=1 to n do begin a[i]:=random(90)+10; write(a[i]:3); end;writeln;s:=0;for i:=1 to n do s:=s+a[i] div 10;writeln('s = ',s);end.Пример: 22 88 88 98 54 78 45 89 23 39 13 17 15 38 56 80 51 31 20 30s = 88