Опишите назначение и функции DHCP-сервера

Можно заметить, что нас с каждым днем окружает все больше электронных приборов, делающих нашу жизнь проще.
Компьютеры, телевизоры, сотовые телефоны, электрочайники, умные автомобили и много чего еще в этом духе. В принципе удивительного в этом ничего нет. Человек стремится максимально улучшить, упростить свою жизнь, избавить себя от рутины. Для этого он изобретает все новые и более совершенные технологии. Так были изобретены первые роботы.
Роботы уже полной мерой вошли в нашу жизнь. Теперь мы просто не представляем ее без них. Некоторые роботы готовят еду, некоторые роботы разносят лекарства, убирают, стирают и выполняют огромное количество других функций.
Если заглянуть немного в будущее, то можно предположить, что появятся роботы, которые будут нам по дому, будут для нас что-то типа прислуги. Смогут выгуливать наших домашних животных нашим детям готовить домашние задания, сидеть с младенцами, когда родителям нужно отъехать куда-нибудь. Да и внешне они будут выглядеть точно также как и люди.

var
  S:string;
  i:integer;
begin
  write('S = ');
  readln(S);
  for i := 1 to Length(S) do
    if S[i] <> S[Length(S) - i + 1] then
    begin
      writeln('No');
      readln;
      Exit;
    end;
  writeln('Yes');
  readln;
end.

 

//вторая программа

 

var
  S:string;
  i, countA, countE:integer;
begin
  CountA := 0;
  CountE := 0;
  write('S = ');
  readln(S);
  for i := 1 to Length(S) do
    if S[i] = 'a' then
      inc(countA)
    else
      if S[i] = 'e' then
        inc(countE);
  if countA > countE then
    writeln('a > e')
  else
    if countA < countE then
      writeln('a < e')
    else
      writeln('a = e');
  readln;
end.