Задача

[darter96]

Входной файл: j.in
Выходной файл: j.out
Ограничение по времени: 1 сек.

Условия
Петя, Катя и Сережа делают из бумаги журавликов. Вместе они сделали S журавликов. Сколько журавликов сделал каждый ребенок, если известно, что Петя и Сережа сделали одинаковое количество журавликов, а Катя сделала в два раза больше журавликов, чем Петя и Сережа вместе?

Входные данные
В единственной строке входного файла записано одно натуральное число S – общее количество сделанных журавликов (S ≤ 106).

Выходные данные
В единственную строку выходного файла нужно вывести три числа, разделенных пробелами – количество журавликов, которые сделал каждый ребенок (Петя, Катя и Сережа).

Как решить?

[ОДИНОЧЕСТВО В СЕТИ]

упс!!! удалите пожалуйста пост!!

[ОДИНОЧЕСТВО В СЕТИ]

Program erunda; 
	Var f1,f2:text; 
	    I,p,ser,k,s: integer; 
	Begin 
	
	    Assign(f1, 'j.in'); 
             Reset(f1);
	  While not eof(f1) do 
	    Begin 
	        Read(f1,s)
			end;
      close(f1);
 k:=s div 3*2;// катя
 p:=s div 6;//петя
 ser:=p;// сережа 
	 Assign(f2, 'j.out');
	 rewrite(f2);
	        Writeln(f2,ser,' ',p,' ',k);
	   
	    Close(f2); 

	End.