СОСТАВИТЬ ТАБЛИЦУ ИСТИННОСТИ . Вернувшись домой, Мегре позвонил на набережную Орфевр. Говорит Мегре. Есть новости? Да, шеф. Поступили сообщения от инспекторов. Торранс установил, что если Франсуа был пьян, то либо Этьен убийца, либо Франсуа лжет. Жульен считает, что или Этьен убийца, или Франсуа не был пьян, и убийство произошло после полуночи. Инспектор Люка просил передать вам, что если убийство произошло после полуночи, то либо Этьен убийца, либо Франсуа лжет. Затем позвонила… Все . Этого достаточно. Комиссар положил трубку. Он знал, что трезвый Франсуа никогда не лжет. Теперь он знал все. Опишите, что знает Мегре?

Const
  problems : array [0..9] of String = ('x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10','x1+5=10', 'x1+5=10', 'x1+5=10');
  answers : array [0..9] of String = ('-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5');
var
  countOfAnswers, counter: integer;
  userAnswer: String;
begin
  countOfAnswers := 0;
  for counter:=0 to 9 do
    begin
      write('Введите ответ уравнения ', problems[counter], ' : ');
      readln(userAnswer);
      if userAnswer = answers[counter] then Inc(countOfAnswers);
    end;
if countOfAnswers > 8 then writeln('Отлично')
    else if countOfAnswers > 5 then writeln('Хорошо')
    else writeln('Плохо');
end.

1)128000  переводим в байты (128000  / 8 =  16000)

16000 переводим в килобайты (  16000 / 1024 =  15,625)

500килобайт делим на  15,625 получаем 32секунды.

2)512000  переводим в байты (512000  / 8 =  64000)

64000 переводим в килобайты (  64000 / 1024 =  62,5 )

62,5 умножаем на 46секунд, получаем  2875

3)128000  переводим в байты (128000  / 8 =  16000)

16000 переводим в килобайты (16000 / 1024 =  15,625)

1минуту 20сек переводим в секунды (60+20=80)

15,625 килобайт умножаем на 80секунд, получаем  1250килобайт