Все отрицательные члены последовательности увеличить на 0.5, а все неотрицательные заменить на 0.1

var i,n:integer;
    a:array[1..100] of real;
begin
readln(n);
for i:=1 to n do
    begin
         write('a[',i,'] = ');
         readln(a[i]);
         if a[i]<0 then a[i]:=a[i]*0.5
         else a[i]:=0.1;
    end;
for i:=1 to n do
    write(a[i]:6:1);
readln;
end.

var i,n:integer;
    a:array[1..100] of real;
begin
readln(n);  //вводим количество элементов
 
for i:=1 to n do //пускаем цикл 
    begin
 
         //вводим массив
         write('a[',i,'] = ');
         readln(a[i]); 
 
         //сравниваем с 0 элементы
         if a[i]<0 then a[i]:=a[i]*0.5 //если число отрицательное, то делим на 2
         else a[i]:=0.1; //иначе, придаем значение 0.1
    end;
 
//выводим полученный массив
for i:=1 to n do
    write(a[i]:6:1);
readln;
end.

var i,n:integer;               //переменные
    a:array[1..100] of real;
begin
writeln('введите размерность массива');
readln(n);
for i:=1 to n do   //от начала до конца
    begin
         write('a[',i,'] = ');  
         readln(a[i]);  //вводим элементы последовательности
         if a[i]<0 then a[i]:=a[i]+0.5   //если отрицательное - добавляем 0.5
         else a[i]:=0.1;                  //в противном случае заменяем на 0.1
    end;
for i:=1 to n do
    write(a[i]:6:1); //выводим то что получилось
readln;
end.

if a[i]<0 then a[i]:=a[i]+0.5