Укажите имя файла удовлетворяющее маске: ? ba*r.? xt.​

program aaa;   var d, n : integer; begin  write ('введите число n-');   readln (n);   writeln('делители числа: ');   for d : =1 to n do  if n mod d = 0 then writeln (d)end.

в египетском письме было более 750 иероглифов, не было гласных. иероглифы обозначали целые слоги и звуки.

5`120`000 бит =  640 000 байт = 625 кб

я так понимаю нужно нарисовать рисунки рыб, карасей и различных животных. множества нужно перекрестить(множество рыб и хищ. животных), так как рыба тоже может быть хищником