Question

Помогите, пожалуйста написать эту программу для Pascal

Answer 1

Блок поиска может выглядеть так:

..................
x0:=1;
xn:=10;
h:=2;
xmax:=x0;
xmin:=x0;
i:=1;
x:=x0;
while x<=xn do
   begin
      x:=x+h;
      if x<xmin then MIN:=x;
      if x>xmax then MAX:=x;
   end;
   Writeln (MIN);
   WriteLn (MAX);
...................................