С клавиатуры поочередно вводятся 15 различных целых чисел, которые размещаются в

var
   min, i, x : integer;                       // объявляем переменные целочисленного типа.
   arr : array [1..15] of integer;       // объявляем массив.
Begin
   writeln(Введите 15 целых чисел для наполнения массива:); // вывод строки на экран.
   for i:= 1 to 15 do                      // начало цикла.
    begin
      readln(arr[i]);                    // заполняем элемент массива.
      if ((arr[i] mod 5 = 0)) then // если элемент кратный 5.
        begin
            if (x = 0) then min := arr[i];           // первый элемент, кратный 5 считаем минимальным.
            if (arr[i] lt; min) then min := arr[i]; // сравниваем текущий элемент с минимумом.
            x := x + 1;                                   // считаем количество частей, кратных 5.
        end;
    end;
 writeln(Количество частей в массиве, кратных 5 одинаково: , x, ,малый из них: ,min); 
End.