Проверьте программку на корректность написания, пожалуйсяprogram p1; var a: array [1..5]

в целом программа работает. Желая могу дать пару замечаний

индексную переменную превосходнее объявлять в самом цикле.

в паскале переменной не непременно задавать стартовое нулевое значение, она и так будет одинакова 0.

вместо s:=s+1 можно написать s += 1

ну и отступы...

после правок будет смотреться примерно так:

program p1;

var

   a : array [1..5] of real;

   s : real;

begin

   for var i:= 1 to 5 do

   begin

       write('a[', i, ']=');

       readln(a[i]);

       if a[i] gt; 0 then s += 1;

   end;

   writeln;

   writeln('количество положительных частей = ', s);

   write('элементы, имеющие нечетные индексы:');

   for var i := 1 to 5 do if i mod 2 lt;gt; 0 then write(' ', a[i]);

end.

program p1;

var a: array [1..5] of real;

i:integer; s:real = 0;

begin

for i:=1 to 5 do

begin

write('a[',i,']=');

readln(a[i]);

if a[i] gt; 0 then s:=s+1;

end;

writeln(1310,'количество положительных частей = ', s:0:1);

write('элементы, имеющие нечетные индексы:');

for i:=1 to 5 do

if i mod 2 lt;gt; 0 then write('  ',a[i]:0:1);

end.  

Вот, а так все идеально))