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

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

program change;var s: real;k: real;beginwriteln(\'Введите сумму чисел\');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.