Пользователь вводит расстояние выраженное в милях нужно перевести это расстояние в км(1 миля=1,6км)

32 кГц = 32 000 Гц = 32 000 с^-1 (Знак ^ означает возведение в степень. В данном случае в -1). Т. е. мы имеем 16 бит на 1/32 000 секунды. 16 бит = 16/8=2 (байта) . 700 кбайт = 700*1 024=716 800 (байт) . Решаем пропорцию
2 - 1/32 000
716 800 - x
x=716 800 * 1/32 000 : 2 = 11.2 (с)
Аналогичную пропорцию получаем и во втором случае. С учетом того, что 6 300 кбайт = 6 300 * 1 024 = 6 451 200 (байт) получаем
x = 6 451 200 * 1/32 000 : 2 = 100.8 (с)
Ответ: 11.2 c и 100.8 c

Program pr_1;
var a:array [1..n] of integer;
i, c, n:integer;
begin
readln(n)
for i:=1 to n do
begin
a[i] := random(150, 180);
c := c + a[i];
end;
writeln(c / n);
end.

Program pr;
var a:array [1..10] of integer
i, imax, imin, mx, mn, n:integer;
begin
for i := 1 to 10 do
a[i] := random(50);
mx := a[1];
for i := 2 to 10 do
begin
if a[i] > mx then
begin
mx := a[i];
imax := i
end;
end;
mn := a[0];
for i := 2 to 10 do
begin
if a[i] < mn then
begin
mn := a[i];
imin := i
end;
end;
a[imax] := mn;
a[imin] := mx
writeln(a);
end.