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

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

Второе число будет равно удвоенному первому числу.

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.