проверьте пожалуйта задачу.
В линейном массиве целлых чисел b(n) заменить все элементы кратные 5, на их удвоенное значение.
program zadacha
var B: array [1..30] of integer;
i, n of integer;
begin
writeln ('ввод колличество элементов массива');
readln (n);
for: i:=1 to n do
readln (a [i]);
for: i:=1 to n do
if a [i] mod 5 <>0 then
a [i]:=a [i]*2;
for: i:=1 to n do
writeln ( 'a [i]=');
end.
я не понимаю как сделать вывод и думаю, что должна вводить еще обозначения кроме I и n