Прошу. надо успеть за 2 часа!

Самое простое, чтоб без заморочек, занести в массив и отсортировать его var     a: array[1..3]of real;     i,j: integer;     p: real; begin for i: =1 to 3 do   begin     write('введите число: ');     readln(a[i]);   end; for i: =1 to 3 do   for j: =1 to 3 do       if a[j]< a[i] then         begin         p: =a[i];         a[i]: =a[j];         a[j]: =p;         end; for i: =1 to 3 do  write(a[i],' ') end.

Const n = 10; var a, b, i, k : integer;       mas : array[1..n] of integer; begin       read(a, b);       randomize();       k : = 0;       for i : = 1 to n do begin               mas[i] : = random(50);               if (mas[i] > = a) and (mas[i] < = b) then                       k : = k + 1;       end;       writeln(k); end.