var
    arr: array[1..20] of real; 
begin
    write('Ваш массив: ');
    for var i := 1 to 20 do
    begin
      arr[i] := 12 - i / 7;
      write(arr[i]:2:2, ' ');
    end;
end.