Паскаль(pas.abc)
а) слова в тексте разделены пробелами. определить длину первого и последнего слов.
б) заменить в тексте каждое местоимение «я» местоимением «мы».

uses crt;
var a,b,c,d,x:real;
begin
clrscr;
     writeln('введите A,B,C');
     readln( a,b,c );
     d:=sqr(b)-4*a*c;
     if d<0 then
        writeln('действительных корней нет') 
     else if d=0 then
        begin
        x:=(-b)/2*a;
        writeln('корень уравнения: ',x);
        end else
        begin
        x:=(-b+sqrt(d))/2*a;
        writeln('1-ый корень уравнения: ',x);
        x:=(-b-sqrt(d))/2*a;
        writeln('2-ой корень уравнения: ',x);
        end
end.

P.S. Надеюсь на благодарность и лучший ответ.

uses crt;
var a, b, c, i, n, j :integer;    
s :array[1..10000] of integer;
begin
      clrscr;
      writeln('Введите размер массива');
      read(n);
      for i:=1 to n do 
          begin 
          s[i]:=random(46)-15; 
          writeln ('s[', i,']=', s[i]); 
          end;
      a:=s[1];for i:=1 to n do 
          if s[i]>a then  
              begin  
              a:=s[i];  
              b:=i;  
              end;
      writeln ('Наибольший элемент s[', b, ']=',a);
end.

P.S. Надеюсь на благодарность и лучший ответ.