//программа для определения есть ли искомое число в массиве или нет
var // блок описания переменных, то есть здесь мы указываем с какими переменными будем работать
  i, s, r: integer; // указываем тип данных переменных с какимим работаем, нам нужны целые числа
  a: array[1..5] of integer = (1, 2, 5, 4, 5); // описываем массив и помещаем в него элементы 
begin // начало программы
  write('введите искомое число: '); // вывод текста на экран, некий интерактив
  read(s);//программа считывает значение, которое вы вводите с клавиатуры
  r:=0;// переключатель, изначально равен нулю
  for i := 1 to 5 do // обращаемся к элементам массива с помощью цикла
    if a[i] = s then //проверяем первый раз, есть ли в массиве искомое число
      r:=1;// если искомое числа есть в массиве, то переключатель изменяется с 0 на 1
    if r > 0 then // проверяем, изменился ли наш переключатель, если да, тогда
    begin //начало подпрограммы
    for i:=1 to 5 do //обращаемся к элементам массива с помощью цикла
      if a[i] = s then // проверяем еще раз, есть ли в массиве искомое число, заведомо зная, что оно здесь есть
        writeln('Число ', s, ' есть в массиве и стоит на ', i, ' месте');// выводим на экран сообщение с его положением
    end // конец подпрограммы
    else // иначе наш переключатель не изменился и такого числа нет в массиве
      write('Такого числа нет в массиве');// выводим сообщение на экран о том что числа нет в массиве
end.// конец программы