Дан массив из 7 целых чисел, все элементы меньше 10, заменить на 0 и вывести полученный массив на экран.

const  N = 7;var  A: array [1..N] of integer;  i: integer;begin  // Ввод и обработка массива  for i := 1 to N do begin    write('Введите ', i, ' элемент -> ');    readln(A[i]);    if (A[i] < 10) then      A[i] := 0;  end;  // Вывод полученного массива на экран  write('Массив: ');  for i := 1 to N do begin    write(A[i], ' ');  end;end.