Параллелерипед құрудың дұрыс әрекет тізбегі

ВО ПЕРВЫХ ДОПИСЫВАЙ ЗАДАНИЕ!  ЕВЛИ ЗАДАЧА ТА ЧТО НИЖЕ, ТО ТЫ В ДОЛГУ!
Документ (без упаковки) можно передать по каналу связи с одного компьютера на другой за 75 секунд. Если предварительно упаковать документ архиватором, передать упакованный документ, а потом распаковать на компьютере получателя, то общее время передачи (включая упаковку и распаковку) составит 30 секунд. При этом на упаковку и распаковку данных всего ушло 15 секунд. Размер исходного документа 20 Мбайт. Чему равен размер упакованного документа (в Мбайт)?
РЕШЕНИЕ:
Чтобы передать документ без упаковки, нужно 20Мб передать за 75 секунд
Чтобы передать документ с упаковкой, нужно XМб передать за 15 секунд, т.к. 15 секунд ушли на упаковку и распаковку.
Скорость канала одна и та же.Найдем скорость
V=20Мб/75с=4/15Мб/с;
Теперь найдем размер упакованного документа
Х=4/15*15=4Мб
ответ:4Мб

Program pr;
uses crt;

var a,b:real;

Begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);

if (a<0) and (b<0)   
    then     
       Begin       
            a:=a+2;
            b:=b+2; 
             writeln('a = ',a); 
             writeln('b = ',b); 
        end
else 
      if (a>0) and (b<0)     
        then       
           writeln('a*b = ',a*b)
      else 
           if (a<0) and (b>0)     
                then        
                   writeln('b-a = ', b-a)

           else  writeln('Ни одно условие не выполняется');

readln;
end.