Заполнить массив из 10 элементов. Во второй массив переписать все элементы кратные 5 на четные числа 

program kratnie5;uses crt;const n=10;type x=array[1..n] of integer;var a,b:x;     i:integer;beginfor i:=1 to n doreadln(a[i]);for i:=1 to n doif (a[i] div 5)=0 then beginb[i]:=a[i];end;for i:=1 to n dowriteln(b[i]);end.