В чем ошибка

[Игрушка96]

var
  y:real;
  a:array[0.7,0.2,0.4,0.6,0.8] of real;
  i,k:integer;
begin
   k:=5;
    for i:=1 to k do
          begin
      if a[i]<0.5 then
             begin
       y:=sqr(a[i]);
       writeln('y=',y:4:2);
              end
                 else
           y:=sin(a[i]);
       writeln('y=',y:4:2);
          end;
   readln;
   readln;
end.

Заранее спс..

[Hacker19_90]

в том что сделай те так

const
    a: array[1..5] of real = (0.7,0.2,0.4,0.6,0.8);

[VIK_aka_TOR]

если в самом объявлении только... то нужно сперва объявить размерность... и лишь затем значения...

a:array [1..5] of real = (0.7,0.2,0.4,0.6,0.8);

и на будущее... оформляйте код при помощи #...

[Hacker19_90]

В разделе var в TP нельзя инициализировать массив!

[Игрушка96]

спасибо большое)))