с массивом
for i:=1 to 5 do
A[i]:=2*i;
for i:=1 to 5 do begin
k:=2*A[i]+3;
A[5-i+1]:=k;
end;

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку