Помогите пожалуйста. Даю 50 баллов!!!

ВАРИАНТ 1.
1. Дан массив из 10 целых чисел. Выведите на печать индексы элементов, кратных заданному числу п. 2. Ввести массив a[1], a[2] ,..., a[2] ,...,a[10] вещественного типа и найти среднее арифметическое положительных элементов.

1.

program p1;

var i, a :integer;

M :array [1..10] of integer;

begin

writeln('Введи целое число');

readln(a);

write('индексы элементов, кратных заданному числу:');

for i := 1 to High(M) do

if i mod a = 0 then write(' ', i);

end.

2.
program p2;

var i :integer;

s, r :real;

M :array [1..10] of real;

begin

writeln('Вводи числа');

for i := 1 to High(M) do

begin

readln(M[i]);

s := s + M[i];

end;

r := s/High(M);

write('Среднее арифметическое:', r);

end.