X мальчиков и у девочек
всегда можно рассадить требуемым образом, кроме если количество мальчиков больше удвоенного числа девочек или если количество девочек больше удвоенного числа мальчиков
х - число мальчиков
у - число девочек
если х > 2*у - ответ НЕТ, ВЫХОД
иначе
{ если у > 2*х - ответ НЕТ, ВЫХОД
иначе - ответ ДА, ВЫХОД
}
Проверь сколько осталось памяти на устройстве или перезагрузи его
var i, n, a, p: integer;
begin
writeln('Vvedi N: ');
readln(n);
writeln('Vvedi A: ');
readln(a);
p := 1;
for i := 0 to sqr(n) do
begin
p := p * (a - n);
n := n * 2;
end;
writeln(p);
readln;
end.