решить: Составить алгоритм и программу на языке QBasic линейной структуры: Вычислить значение функции при любом значении х. (пример во вложении)

// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!

№1

begin
  var a:=ArrGen(20,i->i+1); a.Println;
end.

Пример
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

№2

begin
  var a:=ArrRandom(20,-99,99); a.Println;
  Writeln('П = ',a.Aggregate(BigInteger(1),(x,y)->x*y))
end.

Пример
92 6 39 -33 34 -22 -97 52 58 55 -42 -59 -15 -19 -91 76 -69 82 -19 -69
П = -309778851231495493804367495884800

№3

begin
  var a:=ArrRandom(40,-99,99); a.Println;
  Writeln('Номер максимального элемента = ',a.IndexMax+1)
end.

Пример
-30 85 -57 -5 -64 20 48 83 19 -32 -56 10 21 83 78 20 89 -5 71 -78 -59 88 -10 -94 -80 -58 24 37 -1 66 -71 -9 43 55 -14 -79 -33 -19 -34 68
Номер максимального элемента = 17

1)
const f0=1; fk=10; h=0.5;
var f:real; i:integer;
begin
f:=f0-h;
writeln('Фунты   Кг');
for i:=1 to round((fk-f0)/h)+1 do
 begin
 f:=f+h;
 writeln(f:4:1,f*0.4:7:3);
 end;
end.

2)
const f0=1; fk=10; h=0.5;
var f:real;
begin
f:=f0-h;
writeln('Фунты   Кг');
while f<fk do
 begin
 f:=f+h;
 writeln(f:4:1,f*0.4:7:3);
 end;
end.

3)
const f0=1; fk=10; h=0.5;
var f:real;
begin
f:=f0-h;
writeln('Фунты   Кг');
repeat
 f:=f+h;
 writeln(f:4:1,f*0.4:7:3);
until f>=fk;
end.

Результат:
Фунты   Кг
 1.0  0.400
 1.5  0.600
 2.0  0.800
 2.5  1.000
...
 9.0  3.600
 9.5  3.800
10.0  4.000