продолжите ряд: i486, Athlon, Pentium, Celeron...

на 12.

1) Объёма обрабатываемой информации
2) Размера монитора
3) Тактовой частоты процессора
4) Напряжение питания

зачем-то меняет другими числами оставшиеся элементы массива. Что надо исправить?
Условие: Вставить перед первым четным элементом массива заданное число.
program vstavka;
var i,n,k,z:integer;
a:array[1..1000] of integer;
begin
assign (input,'input.txt');
assign (output,'output.txt');
reset (input);
rewrite (output);
readln(n,z);
for i:=1 to n do read (a[i]);
i:=a[1];
for i:=1 to n do
if a[i] mod 2=0 then
begin
for k:=n+1 downto k+1 do
a[i]:=a[i-1];
a[k]:=z;
n:=n+1; break;
end;
for i:=1 to n do write(a[i],' ');
close (input);
close (output);
end.

Вывести на экран таблицу перевода евро в рубли, от 1 до 25 по текущему курсы. Ввести с клавиатуры.

1) Л
2) Ж
3) У