Одно число в 2 раза больше другого, а их сумма равна s. Найти эти числа. Паскаль. Пожалуйста срочно надо.    

var    s, i : Integer;begin    Write('Введите сумму двух чисел: ');    ReadLn(s);    if s mod 3 = 0 then    begin        i := s div 3;        Writeln('a = ', i);        Writeln('b = ', i*2);    end    else        Writeln('Таких чисел нет.');    Readln;end.