Одно число в 2 раза больше другого, а их сумма равна

Если сумму поделить на три, то мы найдем наименьшее из чисел.
2-ое число будет равно удвоенному первому числу.

program change;
var s: real;
k: real;
begin
writeln(Введите сумму чисел);
readln(s);
k:=s / 3;
writeln(Числа,сумма которых одинакова , s, : , k : 6 : 3, , , (2 * k) : 6 : 3);
writeln(k : 6 : 3, + , (2 * k) : 6 : 3, = , s : 6 : 3);
end.