X мальчиков и у девочек
всегда можно рассадить требуемым образом, кроме если количество мальчиков больше удвоенного числа девочек или если количество девочек больше удвоенного числа мальчиков
х - число мальчиков
у - число девочек
если х > 2*у - ответ НЕТ, ВЫХОД
иначе
{ если у > 2*х - ответ НЕТ, ВЫХОД
иначе - ответ ДА, ВЫХОД
}
Uses crt;
var
x,y,a,b:integer;
begin
clrscr;
while true do begin
randomize;
x:=random(10);
y:=random(10);
write('Введите первое число=');read(a);
write('Введите второе число=');read(b);
writeln(x,' ',y);
if ((a=x) and (b=y)) or ((a=y) and (b=x)) then begin
writeln('Вы угадали');
end
else begin
writeln('Вы не угадали');
end;
end;
end.