Помогите решить задачу в паскале Задание 2. номер 8

Question

Помогите решить задачу в паскале Задание 2. номер 8

---

Answer 1

Var
  hmax, hmin, h: integer;

begin
  hmax := 0;
  hmin := 300;
  writeln('Вводите рост группы людей в см, конец ввода по значению 0');
  repeat
    read(h);
    if h > 0 then
    begin
      if hmax < h then hmax := h;
      if hmin > h then hmin := h
    end
  until h <= 0;<br>  writeln(#13#10, 'Максимальный рост превышает минимальный на ', hmax - hmin)
end.

Тестовое решение:

Вводите рост группы людей в см, конец ввода по значению 0
165 175 180 175 168 163 176 0

Максимальный рост превышает минимальный на 17

Answer 2

Var   a,b,h,x,f:real;
begin
write('Введите a,b,h: ');
readln(a,b,h);
x:=a;
writeln('x':8,'F(x)':12);
repeat
  f:=2*tan(x/2)+1;
  writeln(x:10:3,f:10:3);
  x:=x+h;
  until x>b;
end.

---