Выберите из списка имена девяти множеств, связанных отношениями : яблоня, сосна, дерево, яблоко, фруктовое дерево, дуб, корень, хвлйное дерево, пихта, лиственное дерево, ствол , берёза, лиственница, желудь

Яблоня,яблоко,корень,лиственное дерево,береза,желудь.

1) var   a, b, c, d, max: integer;   begin   readln(a, b, c, d);   if(a > b) and (a > c) and (a > d) then max : = a   else if(b > a) and (b > c) and (b > d) then max : = b   else if(c > a) and (c > b) and (c > d) then max : = c   else max : = d;   write(max); end. 2) var a, b, c, max: integer;   begin   readln(a, b, c);   if(a > b) and (a > c) then max : = a   else if(b > a) and (b > c) then max : = b   else max : = c;   write(max); end.

// pascalabc.net (версия 3.2, сборка 1363) const   rm = 'ем'; var   c, n: char;   seq: boolean : = false;   s: string : = 'земля - планета солнечной системы'; begin   writeln(s);   for var i : = 1 to (length(s) -1) do   begin       c : = s[i];       n : = s[i+1];       if seq = true then       begin           seq : = false;           continue;       end;       if (c = rm[1]) and (n = rm[2]) then       begin           seq : = true;           continue;       end       else       begin           seq : = false;           write(c);       end;   end;   write(s[length(s)]); end.