БЛИН ПОМОГИТЕ!!!
Петя, Катя и Сережа делают из бумаги журавликов. Вместе они сделали 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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.