Вводится слово из 4 букв. напечатать слово из букв, следующих по алфавиту. пример: 'лето' - 'мжуп'

Любые слова тогда  роза-спиб

  program ii;                     var a, b, c, d: real;                     begin      writeln ('введите коэффициенты а, в, с');       readln (a, b, c);       if a=0      then   writeln ('уравнение не квадратное')       else begin   d : = b*b - 4*a*c;   a : = 2*a; if d< 0  then writeln ('действительных корней нет') else   if d=0  then writeln ('корни равны: x1 = x2 = ', -b/a) else      begin          d : = sqrt(d);             writeln ('x1 = ', (-b+d)/a); writeln ('x2 = ', (-b-d)/a);     end;         end;               end.

Полное решение: var   a,b,c: integer; begin   writeln('введите три числа: ');   readln(a,b,c);   if (a> b)and(a> c) then writeln('первое число наибольшее')                                     else if (a< b)and(a< c) then writeln('первое число наименьшее')                                                                                 else writeln('первое число со средним значением');   if (b> a)and(b> c) then writeln('второе число наибольшее')                                     else if (b< a)and(b< c) then writeln('второе число наименьшее')                                                                                 else writeln('второе число со средним значением');   if (c> a)and(c> b) then writeln('третье число наибольшее')                                     else if (c< a)and(c< b) then writeln('третье число наименьшее')                                                                                 else writeln('третье число со средним значением'); end. проверил на паскале