Нужно программу на паскале написать : входные данные входная строка содержит два целых числа a и b , разделённых пробелом. гарантируется, что a < b . выходные данные нужно вывести в одной строке через пробел 5 случайных целых чисел на отрезке [ a , b ] .

Держи, если надо больше объяснений - напиши мне:
begin
var a, b:integer; //Объявляем a и b
readln(a,b); //Считываем их 
for var i := 1 to 5 do write(random(b - a) + a, ' '); //Выводим рандомные числа от a до b
writeln; //Переносим строку
end.
...
Если не сложно нажми " " ;)

Объяснение:

#include <iostream>

#include <vector>

using namespace std;

int main()

{

   setlocale(LC_ALL, "RU");

   int N;

   cin >> N;//массив на N элементов

   vector<int>a;

   for (int i = 0; i < N; i++)

       a.push_back(rand()%100);// заполнение массива числами от 0 до 100

   for (int i = 0; i < N; i++)

       cout << a[i] << " ";

   cout << endl;

   bool flag=false;

   int number;

   for (int i = 0; i < N; i++) {

       auto r = find(a.begin(), a.end(),a[i]);// функция стандартной библиотеки для поиска

       if (r != a.end()&&r-a.begin()!=i)

       {

           number = r - a.begin();// номер элемента массива с одинаковым значением

           flag = true;

           break;

       }

   }

   if (flag)

       cout <<"В массиве присутствуют элементы с одинаковыми значениями. Одним из равных значений является: "<<a[number];

   else

       cout << "В массиве не присутствуют элементы с одинаковыми значениями";

}

Var  ar: array[1..10000]of integer;
  ms: array[1..10000]of integer;
  i, c, n, j, p: integer;  b: boolean;
begin
  randomize;
  b := true;
  c := 1;
  write('Введите количество элементов массива:');
  read(n);
  writeln('Массив:');
  for i := 1 to n do ms[i] := -2147483648;
  for i := 1 to n do begin ar[i] := random(11); write(ar[i], ' '); end;
   for i := 1 to n do
    for j := i + 1 to n do
    begin
      if (ar[i] = ar[j]) then
       begin
        for p := 1 to c do
           if (ar[i] = ms[p]) then b := false;
           if (b = true) then begin ms[c] := ar[i]; c := c + 1; end;
        end;
      b := true;
    end;
  writeln;
  if (c = 1) then write('Нет')
   else  
begin
    write('Есть:');
    for i := 1 to c - 1 do  if(i <> c - 1) then write(ms[i], ',')  else write(ms[i]);
  end;
end.