Написать программу в паскль которая вводит с клавиатуры одномерный массив из 10 целых чисел и вычисляет: количество элементов массива значение которых равно единице

Программа:

Pascal:

var

 arr: array[1..10] of integer;

 i, n: integer;

begin

 writeln('Введите массив из 10 чисел:');

 for i := 1 to 10 do begin

 readln(arr[i]);

 if arr[i] = 1 then inc(n);

 end;

 writeln('Введено ', n, ' единиц(-а).');

end.