Как можно сделать ? Подключение с модема и
выделенного канала, спутникового
интернета.

// Известно, что Х кг шоколадных конфет стоит А рублей,
// а Y кг ирисок стоит В рублей. Определить, сколько стоит 1 кг
// шоколадных конфет, 1 кг ирисок, а также во сколько раз шоколадные конфеты дороже ирисок.

var x,y,a,b: real;
begin
  writeln('Введите массу шоколадных конфет');
  readln (x);
  writeln('Введите сумму потраченную на покупку шоколадных конфет');
  readln (a);
  writeln('Введите массу ирисок');
  readln (y);
  writeln('Введите сумму потраченную на покупку ирисок');
  readln (b);
  writeln ('килограмм шоколадных конфет стоит ',(a/x):0:2,' рублей');//(a/x):0:2 - округряем до сотых)
  writeln ('килограмм ирисок стоит ',(b/y):0:2,' рублей');
  Writeln ('Шоколадные конфеты дороже ирисок в ',(a/x)/(b/y):0:1,' раз');// - округляем результат до десятых
 end.

//Дана длина ребра куба а. Найти его объем и площадь поверхности

Var a: real;
begin
  writeln ('введите длину ребра куба');
  readln (a);
  while a<0 do
    begin
      writeln ('вы ввели не допустимое значение попробуйте еще раз');
      writeln ('введите длину ребра куба');
      readln (a);
    end;
  writeln ('площадь куба равна ',a*a*6);
  writeln ('объем куба равен ',a*a*a);
end.

Бiблiотека random присутня пiсля установки, тому хай вас не лякає її присутнiсть

from random import randint

lst = []

# список з 10-тьма випадковими числами вiд -10 до 10

for i in range(10):

   lst.append(randint(-10, 10))

# тут я застосував технологiю list comprehension

more_then_zero = [a for a in lst if a > 0]

less_then_zero = [a for a in lst if a < 0]

# сумма/кiлькiсть/середнє арифметичне чисел бiльших за 0

print(sum(more_then_zero))

print(len(more_then_zero))

print(sum(more_then_zero) / len(more_then_zero))

print("\n") # банальний вiдступ

# сумма/кiлькiсть/середнє арифметичне чисел менших за 0

print(sum(less_then_zero))

print(len(less_then_zero))

print(sum(less_then_zero) / len(less_then_zero))