Программа паскаль. даны 2 числа a и b. выведите (через пробел) все четные числа от a до b (включительно)

Var a, b: integer; beginwrite('введите a и b: '); read(a, b); while a< b dobeginif a mod 2 = 0 thenbeginwrite(a, ' '); a: =a+2; endelsea: =a+1; end; end.

Круговорот воды в природе-процесс циклического перемещения воды в земной биосфере. состоит из испарения воды, переноса паров воздушными течениями, их конденсации, атмосферных осадков и переноса воды в реках и других водоёмах. большая часть воды испаряется с поверхности мирового океана.

моря теряют из-за испарения больше воды, чем получают с осадками, на суше  — положение обратное. вода непрерывно циркулирует на земном шаре, при этом её общее количество остаётся неизменным.

три четверти поверхности земного шара покрыты водой. водную оболочку земли называют гидросферой. большую её часть составляет соленая вода морей и океанов, а меньшую-пресная вода озер, рек, ледников, грунтовые воды и водяной пар.на земле вода существует в трех агрегатных состояниях: жидком, твердом и газообразном. без воды невозможно существование организмов. в любом организме вода является средой, в которой происходят реакции, без которых не могут жить организмы. вода является самым ценным и самым необходимым веществом для жизнедеятельности живых организмов.постоянный обмен влагой между гидросферой, атмосферой и земной поверхностью, состоящий из процессов испарения, передвижения водяного пара в атмосфере, его конденсации в атмосфере, выпадения осадков и стока, получил название круговорота воды в природе. атмосферные осадки частично испаряются, частично образуют временные и постоянные водоемы, частично-просачиваются в землю и образуют подземные воды.

1) uses crt; var a: array[0..100] of integer;             i,min: integer; begin     clrscr;     randomize;         writeln('дан массив: ');           for i: =0 to 100 do              begin                    a[i]: =random(150);                     write(a[i],' ');               end;       min: =a[0];     for i: =0 to 100 do                if (a[i] < min) and (a[i] mod 2 < > 0) then min: =a[i];     writeln;         writeln('минимальный нечетный элемент массива   = ',min); readln; end.