сосуды- это    а-живые клетки  б-клетки с перфоврованными поперечными перегородками     в-клетки с утолщенными стенками     г-проводящяя ткань по которой передвигаются органические вещества

переделайте на цикл while пожалуйста

var i,n,x,y:longint;

begin

read(n);

x:=1;

y:=0;

for i:=1 to n do begin

if i mod 2=0 then y:=x+y else x:=x+y; end;

if n mod 2=0 then writeln(y) else writeln(x);

end.

Подписывая Пакт о ненападении с Германией, СССР стремился
1)
предотвратить агрессию Германии в Западной Европе
2)
создать систему коллективной безопасности в Европе
3)
отстоять незыблемость границ вВосточной Европе
4)
отсрочить военное столкновение между СССР и Германией