Блин ! петя, катя и сережа делают из бумаги журавликов. вместе они сделали s журавликов. сколько журавликов сделал каждый ребенок, если известно, что петя и сережа сделали одинаковое количество журавликов, а катя сделала в два раза больше журавликов, чем петя и сережа вместе? составить программу

Var
   s:integer;
   x:real;
begin
repeat
  begin
  write('Сколько всего журавликов сделали: ');
  readln(s);
  if s mod 6<>0 then writeln('Они не могли сделать столько, противоречит условию')
  end
  until s mod 6=0;
x:=s/6;
writeln('Петя и Сережа сделали каждый по ',x);
writeln('Катя сделала ',4*x)
end.