Дан массив из 10 целых чисел. Найти среднее значение элементов массива

Program z1; vari,s: integer; s1: real; a: array[1… 10] of integer; beginwriteln ('Введите числа'); for i: =1 to 10 dobeginreadln (a[i]); s: =s+a[i]; end; s1: =s/10; writeln (s1); end.