Напишите программу на паскаль
Заполните массив случайными числами в интервале [0,5]. Введите число X и найдите все значения равные x

var  a: array[1..5] of integer;         x, i: integer;begin    for i := 1 to 5 do     begin          a[i] := random(5);      write(a[i],' ');   end;  writeln('Введите x');  readln(x);  for i := 1 to 5 do      if a[i] = x then writeln('Иксу равен ', i, '-ый элемент массива');end.