С клавиатуры последовательно вводятся 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] < min) then min := arr[i]; // сравниваем текущий элемент с минимумом.             x := x + 1;                                   // считаем количество элементов, кратных 5.        end;     end; writeln(\'Количество элементов в массиве, кратных 5 равно: \', x, \' ,минимальный из них: \',min); End.