Напрацювання ТЗ до відмови описується експоненціальним розподілом з параметром 2.0 =104 год 1. Визначити ймовірність безвідмовної роботи P(t), частоту розподілу a(t) і
середній час безвідмовної роботи 13 Т., за час роботи t = 2000 год.​

Program Randomizer;

Var a,b,i : Integer;

Const n = 5;//Кол-во попыток

 Begin  

  WriteLn('                Вас приветствует "Randomizer!™"');

  ReadLn;

  WriteLn('    Компьютер загадал число от 1 до 100, ваша задача отгадать его.');

  WriteLn('                   Приступим!(Нажмите Enter)');

  ReadLn;

  WriteLn('                         Введите число');

  i:= 1;

  a:=random(100);

  While ((b <> a) and (i < n + 1)) do //Программа не завершится, пока b не станет равной a или n (попытки) не закончатся.  

   Begin

    //If b > 100 then WriteLn('Ошибка - число превышает 100');//Нужно, чтобы при вылете ошибки программа не завершалась и попытки не уменьшались.

    ReadLn(b);

    If b = a then WriteLn('Вы угадали!') Else

    If ((b <> a) and (i <> n)) then WriteLn('Попробуйте другое число...') Else  WriteLn('          Попытки закончились! Перезапустите программу.');

    inc (i);

   End;

 End.

// PascalABC.NET 3.2, сборка 1344 от 22.11.2016
// Внимание! В других версиях работа не гарантируется!
begin
  var a:=ArrRandom(15,-20,20); a.Println;
  a:=a.Select(x->x.IsOdd?x*3:x div 2).ToArray; a.Println
end.

Пример
-1 -2 8 8 19 -12 13 -11 -7 -10 3 5 -18 4 3
-3 -1 4 4 57 -6 39 -33 -21 -5 9 15 -9 2 9

А вот так это же самое обычно делают в школах...
const
  n=15;
var
  a:array[1..n] of integer;
  i:integer;
begin
  Randomize;
  for i:=1 to n do begin
    a[i]:=Random(41)-20;
    Write(a[i],' ')
    end;
  Writeln;
  for i:=1 to n do begin
    if a[i] mod 2=0 then a[i]:=a[i] div 2
    else a[i]:=a[i]*3;
    Write(a[i],' ')
    end;
  Writeln
end.