во первых вам стало очень приятно, что вам подарили то, что вы так долго ждали. на это сразу отреагировал ваш головной мозг, в частности одна из главных желез секреции эндокринной системы. начал вырабатываться гармон серотонин. при этом человек чувствует, что у него резко поднимается настроение, увеличивается давление в сосудах, учащается сердцебиение. кровь отхлынывает сначала от нижних конечностей к головному мозгу. поэтому мы чувствуем некоторое оцепенение. затем кровообращение приходит в норму и мы чувствуем кучу сил, которые надо куда нибудь деть. в основном человек начинает радоваться, смеяться, дети начинают безостановочно прыгать, бегать, потому что серотонин влияет на двигательную активность и тонус мыщц.
const N=5;
var A: array [1..N] of real;
i: integer;
begin
writeln('Введите массив');
for i:=1 to N do
readln(A[i]);
writeln('Положительные элементы:');
for i:=1 to N do
if A[i]>0 then
writeln('A[', i, ']=', A[i]);
end.