25 вы находитесь в квест-комнате по мультфильму wall-e! чтобы выбраться из комнаты, необходимо выполнить такие шаги: 1. узнайте длину строки s текста и выведите это значение в консоль. 2. выведите весь текст в нижнем регистре. 3. кто-то допустил ошибку и некорректно написал имя робота wall-e! замените все вхождения слова walle на wall-e. 4. наконец, подсчитайте, сколько раз в тексте было использовано слово earth. код к 1: s = "in a distant, but not so unrealistic, future \ where mankind has abandoned earth because it has \ become covered with trash from products sold by \ the powerful multi-national buy n large corporation, \ walle, a garbage collecting robot has been left to \ clean up the mess. mesmerized with trinkets of earth's \ history and show tunes, walle is alone on earth except \

{pascalabc}

program f0rwardirop;

var  

  r,x,y: real;

  b: boolean;

  i: integer;

  s: string;

begin

  s: =' -=alphaeus=- ';

  for i: =1 to 22 do begin write(s[i]); sleep(200) end;

  writeln; write('ok, введите r = '); readln(r);

  write('теперь введите х = '); readln(x);

  write('и, наконец, введите y = '); readln(y);

  if x> =0 then

    if (x*x+y*y < = r*r) then b: = true else b: =false

    else

      if (abs(x) < =r) and (abs(y) < =r) and (abs(x) < = abs(y)) then b: = true else b: =false;

  if b then writeln('точка (',x,',',y,') принадлежит закрашенной области')

  else writeln('точка (',x,',',y,') не принадлежит закрашенной области');

end.

pascalabc:

program f0rwardirop;

var r, x,y: real;

b: boolean;

begin

  writeln('*   alphaeus is   *');

  write('ok, введите r =');   readln(r);

  write('теперь введите х =');   readln(x);

  write('и, наконец, введите y =');   readln(y);

  if x> =0 then  

      if (x*x+y*y < = r*r) then b: = true else b: =false

    else

      if (abs(x) < =r) and (abs(y) < =r) and (abs(x) < = abs(y)) then b: = true else b: =false;

  if b then   writeln('точка (',x,',',y,') принадлежит закрашенной области')

      else   writeln('точка (',x,',',y,') не принадлежит закрашенной области');

end.