Записать в двоичной и шестнадцатеричной форме внутреннее представление целого положительного числа... (фото)

Uses crt ; var n,m:integer; rost,a,b:real; beginwrite('Введите количество учинеков 9а класса: ');readln(n);write('Введите количество учинеков 9б класса: ');readln(m);writeln('Вводите рост каждого из учинеков 9а по очереди');for i:integer :=1 to n do beginwrite(i,': '); read(rost);a:=a+rost;end;a:=a/n; // средний рост 9аwriteln('Вводите рост каждого из учинеков 9б по очереди');for i:integer :=1 to m do beginwrite(i,': '); read(rost);b:=b+rost;end;b:=b/n; // средний рост 9бif a > b then write('Средний рост учеников 9а больше.') else if a < b then write('Средний рост учеников 9б больше.') else write('Средний рост учеников 9а равен среднему росту учеников 9б.');end.

Var
  a, b, h, x: real;

begin
  writeln('Введите начальное значение, конечное значение и шаг ');
  readln(a, b, h);
  x := a;
  while x <= b do
  begin
    writeln(x:5:2,' ',2 * cos(x) - 1:10:7);
    x := x + h
  end
end.

Тест:
Введите начальное значение, конечное значение и шаг
-1.8 1.6 0.2
-1.80 -1.4544042
-1.60 -1.0583990
-1.40 -0.6600657
-1.20 -0.2752845
-1.00  0.0806046
-0.80  0.3934134
-0.60  0.6506712
-0.40  0.8421220
-0.20  0.9601332
 0.00  1.0000000
 0.20  0.9601332
 0.40  0.8421220
 0.60  0.6506712
 0.80  0.3934134
 1.00  0.0806046
 1.20 -0.2752845
 1.40 -0.6600657
 1.60 -1.0583990