Можно с хорошим решением РЕШИТЬ ЗАДАЧУ ПО ИНФОРМАТИКЕ С РЕШЕНИЕ
Объем звукового файла 5,25 Мб, разрядность звуковой платы - 16. Какова длительность звучания этого файла, записанного с частотой дискретизации 22,05 кГц? ответ в минутах.

Var
  x:real;
begin
  x:=-2;
  while x<=2.001 do begin
    Writeln('x=',x:4:1,'  y=',5*sqr(x)-x+2:0:2);
    x:=x+0.1
  end
end.

Результат выполнения программы:
x=-2.0  y=24.00
x=-1.9  y=21.95
x=-1.8  y=20.00
x=-1.7  y=18.15
x=-1.6  y=16.40
x=-1.5  y=14.75
x=-1.4  y=13.20
x=-1.3  y=11.75
x=-1.2  y=10.40
x=-1.1  y=9.15
x=-1.0  y=8.00
x=-0.9  y=6.95
x=-0.8  y=6.00
x=-0.7  y=5.15
x=-0.6  y=4.40
x=-0.5  y=3.75
x=-0.4  y=3.20
x=-0.3  y=2.75
x=-0.2  y=2.40
x=-0.1  y=2.15
x= 0.0  y=2.00
x= 0.1  y=1.95
x= 0.2  y=2.00
x= 0.3  y=2.15
x= 0.4  y=2.40
x= 0.5  y=2.75
x= 0.6  y=3.20
x= 0.7  y=3.75
x= 0.8  y=4.40
x= 0.9  y=5.15
x= 1.0  y=6.00
x= 1.1  y=6.95
x= 1.2  y=8.00
x= 1.3  y=9.15
x= 1.4  y=10.40
x= 1.5  y=11.75
x= 1.6  y=13.20
x= 1.7  y=14.75
x= 1.8  y=16.40
x= 1.9  y=18.15
x= 2.0  y=20.00

//В квадратной матрице A [n, n] определить количество строк упорядоченных 
//по убыванию суммы  и вывести их номера.
const n = 50;var A:Array[1..n, 1.. n] of integer;B:Array[1..n] of integer;m,i,j,sum, k, maxS, q:integer;beginwriteln('Введите размер матрицы m');readln(m);for i:= 1 to m dobeginfor j:= 1 to m dobeginA[i,j] := random(100)+1;write(A[i,j]:4);sum:= sum + A[i,j]end;B[i]:= sum;sum:=0;writeln;end;writeln('Сумма в строке ');for i:=1 to m dowriteln(i:2, B[i]:4);writeln('Матрица с убывающими строками');maxS := -1;for i:= 1 to m dobeginfor k:= 1 to m dobeginif B[k]> maxS then beginmaxS:= B[k]; q := k;end;end;B[q]:= 0; maxS := -1;for j:= 1 to m dobeginwrite(A[q,j]:4);end;writeln;
end;
end.