Составьте программу которая осуществляет ввод в массив с клавиатуры 7 целых чисел и заменяет кратные 4 числа на 1

Var a:array[1 ... 7] of integer; i:integer; n1:real;

begin

writeln ('Введите 7 целых чисел') ;

for i:=1 to 7 do

begin

repeat

read (n1) ;

if (n1round (n1)) then writeln ('Необходимо целое число') ;

until (n1=round (n1)) ;

a[i]:=round (n1) ;

end;

for i:=1 to 7 do

begin

if (a[i] mod 4=0) then a[i]:=1;

end;

writeln ('Полученный массив:') ;

for i:=1 to 7 do

write (a[i]:5) ;

writeln ('') ;

end.