Дан массив из 20 целых чисел заполненный случайным образом от 10

Const n=20;
var a:array[1..n] of integer;
i,s:integer;
begin
Randomize;
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.
Второй вариант исполненья:
Program sum1;
var a:array[1..20] of integer; k,i:integer;
begin
k:=0;
randomize;
for i:=1 to 20 do
begin
a[i]:=random(90)+10;
write(a[i], );
k:=k+ a[i] div 10;
end;
readln;
write(summa desyatkov = ,k);
readln;
end.