1) как объединить операторы в блок для выполнения в цикле 2)привидите пример одного из цикла 3) решите через while: прибавьте данное число к четным индексам и вычтите его же из нечетных.. заранее

Var p,a,i,n:integer;

begin

n:=2,a:=5

for i:=1 to n do if odd(i)

then p:=a+1,else p:=i-a

Writeln(i,p)

end.

1)p:=5+1=6

2)p:=2-5=-3

const n=4;

Var i,a,p:integer

begin

a:=5;i:=1

while i=4 do

begin

if odd(i) then p:=i+a else

p:=i-a;

Wr(p);

i:=i+1;

end;

end.