{* Генерирация чисел из диапазона [-N,N] *}

Unit PASSLUCH0;
Interface
Implementation
Begin
 writeln(' Генерируем вещественные случайные числа из диапазона [-N, N] ');
End.

Program passluch0;

Uses passluch0.pas; {* Эту строку можно удалить *}
Var {* Объявление переменных *}
  a : Array [1..10] Of real;
  i : integer;
Begin
  randomize;
  For i := 1 To 10 Do {* Цикл для i => [1 .. 10] *}
  Begin
    a[i] := random(20) - 10;
    write (a[i] : 10 : 2);
  End;
  readln; {* Ждем подтверждения пользователя *}
End.