Составьте программу ввода элементов массива a[1..15] с клавиатуры и вывода на экран элементов со значениями кратными 5

program kr5;const KR = 5; SIZE = 15;var a: array[1..SIZE] of integer; i: integer;begin for i := 1 to SIZE do begin write('a[',i,']='); readln(a[i]); if a[i] mod KR = 0 then writeln('a[',i,'] кратное ',KR); end;end.