Как в паскале задать случайное число?

Var varmyrandomnumber, x, y : = extended; beginx : =  0; y : = 100; varmyrandomnumber : = random(x,y); showmessage(inttostr(varmyrandomnumber)); end;

Биология: 1) кит - это млекопитающее (истина) 2) все клетки имеют ядро (ложь) :   1) франция располагается на материке евразия (истина) 2) крым принадлежит украине (ложь) информатика: 1) в двоичной системе счисления используются тольку нули и единицы (истина) 2) в одном гигабайте 200 мегабайт (ложь) : 1) великая октябрьская революция произошла 25 октября (7 ноября) 1917 года (истина) 2)  вторая мировая война началась в 1941 году (ложь) : 1) число, возведенное в четную степень, всегда будет положительно (истина) 2) два умножить на три равно десять : 1) произведение "отцы  и дети" принадлежит перу тургенева (истина) 2) одна из значимых героинь поэмы "мертвые души" -  анна каренина (ложь)

Const   n = 10; //предельное количество точек var   a: array[1..2 * n] of real;   x, y, l,lmax, lmin: real;   i, j, k: integer; begin   writeln('введите количество точек (не более ', n, ')');   readln(k);   writeln('вводите координаты точек (x,y) попарно');   lmax : = 0;   lmin : = 1e10;   for i : = 1 to k do   begin       j : = 2 * i - 1;       read(a[j], a[j + 1]);       l : = sqr(a[j]) + sqr(a[j + 1]); //квадратами расстояния до точки       if lmax< l then lmax: =l;       if lmin> l then lmin: =l   end;   writeln;   writeln('все точки находятся внутри кольца с радиусами ',sqrt(lmin),', ',sqrt(lmax)) end. тестовое решение: введите количество точек (не более 10) 5 вводите координаты точек (x,y) попарно 3 6 2 5 -4 -3 5 7 3 3 все точки находятся внутри кольца с радиусами 4.24264068711928, 8.60232526704263