Дан одномерный массив заролните его десятичной дробью

Var
 n,m,k,i,l:longint;
 a:array[1..100]of real;
begin
 for i:=1 to 100 do a[i]:=i/100;
 for i:=1 to 100 do writeln(a[i]:0:2);
readln;
end;