Разработать алгоритм. даны три числа: a, b, c. определить произведение положительных чисел.

Var
  a, b, c, s:integer;

begin
  s:=1;
  readln(a, b, c);
  if (a<=0) AND (b<=0) AND (c<=0) then
    writeln('Среди чисел a, b, c нет положительных чисел')
  else
  begin
    if a>0 then
      s:=s*a;
    if b>0 then
      s:=s*b;
    if c>0 then
      s:=s*c;
    writeln(s);
  end;
end.

Итак, дано: квадрат любого числа есть число положительное. Запишем это математически (скобки для наглядности):

Отрицание первым раскрытие квантора. Существует число, квадрат которого неположителен. Математически:

Отрицание вторым я не знаю, как построить, важно, что приводит это к одному и тому же высказыванию в конце концов.
Ну, а истинность установить однозначно нельзя. Если рассматривать это высказывание на множестве натуральных чисел, то оно истинно. Квадрат любого натурального числа положителен, потому что произведение двух положительных чисел положительно.

1)
20480 * 40 = 819200 (Всего передано данных в битах за 40с)
819200 / 8 = 102400 (Перевели в байты)
102400 / 1024 = 100 (Перевели в кБайты)
ответ: 100 Кбайт

2)
64 / 8 * 1024 = 8192 (Скорость модема Байт/сек)
16 * 60 = 960 (переводим 16 минут в секунды)
8192 * 960 = 7864320 (Передано в байтах за 16 мин)
7864320 / 1024 / 1024 = 7,5
ответ: 7,5 Мбайт

3)70 / 8 * 1024 = 8960 (Скорость модема Байт/сек)
280 * 1024 = 286720 (Объем файла в байтах)
286720 / 8960 = 32
ответ: 32 секунды

4)6,25 * 1024 * 1024 = 6553600 (Объем данных в байтах)
6553600 * 8 = 52428800 (Объем в битах)
52428800 / 1024 / 1024 = 50
ответ: 50 Мбит/сек