Информатика массивы заполнить массив 10 элементами с клавиатуры и вывести его на экран вывести на экран элементы равные индексам.

For i:=1 to 10 do 
 begin
 read (a);
 mas[i]:=a;
 end;
writeln ('числа равные индексам:');
for i:=1 to 10 do if mas[i]=i then write (mas[i]);