петр Катя и Андрей сделали s печенья Сколько печенья сделал каждый если Петр и Андрей сделали одинаковое колличество а Катя сделала в два раза больше чем Петр и Андрей вместе программа Pascal

Если не ошибаюсь:

var s,c,b,m:integer;

begin

 read(s);

c:=s div 2; // Сделала Катя

b:=c div 2; //Сделал Петя

m:=c div 2; // Сделал Андрей

write(c,' ',b,' ',m);

end.