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

const n=40; var a:array[1..n] of integer;i:integer; beginRandomize;writeln('Массив A:');for i:=1 to n do begin a[i]:=random(31); write(a[i]:4); end;writeln;writeln('Изменённый массив A:');for i:=1 to n do if a[i]<10 then a[i]:=2;for i:=1 to n do write(a[i]:4);writeln;end.Пример (для n=10):Массив A:5 30 21 30 3 24 7 22 2 17Изменённый массив A:2 30 21 30 2 24 2 22 2 17