Что может быть приемником информации воробей, лужа, цветок, земля, трава?

Цветок трава             воробей

// pascalabc.net 3.2, сборка 1439 от 09.05.2017 // внимание! если программа не работает, обновите версию! function дробьнесократима(чис,знам: integer): boolean; begin   while знам< > 0 do begin чис: =чис mod знам; swap(чис,знам) end;   result: =чис=1 end; begin   for var знаменатель: =2 to 7 do       for var числитель: =1 to знаменатель-1 do           if дробьнесократима(числитель,знаменатель) then               write(числитель,'/',знаменатель,' ');   writeln end. результат 1/2 1/3 2/3 1/4 3/4 1/5 2/5 3/5 4/5 1/6 5/6 1/7 2/7 3/7 4/7 5/7 6/7

Program sort; var sex: string;       points: integer; begin   writeln('введите пол');   readln(sex);   writeln('введите кол-во ');   readln(points);   if sex = 'д' then begin       if points < = 35 then           writeln('в группу технологов')       else           writeln('в группу менеджеров');   end   else begin       if points < = 35 then           writeln('в группу металургов')       else           writeln('в группу инженеров');   end; end.