Одно число в 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.