текст

var n:Integer;
    i,k:integer;
    t:string;
    a:set of char;
Begin
 Writeln('Напишите слово:');
 read(t);
 
 while a<>['a'] do
  begin
   for i:=1 to length(t) do
    begin
      a:=[t[i]];
      k:=i;
      if a=['a'] then break;
    end;
  end;
  
 
  writeln(t[k+1]);
End.

var
  s:string;
  temp:integer;
begin
  readln(s);
  temp:=pos('a',s);
  if (temp<>0) and (temp<>length(s)) then
    writeln(s[temp+1])
  else
  begin
    if temp=length(s) then
      writeln('Çàäàííàÿ áóêâà ïîñëåäíÿÿ â ñëîâå!');
    if temp=0 then
      writeln('Òàêîé áóêâû íåò â çàäàííîì òåêñòå!')
  end;
end.

var n:Integer;
    i,k:integer;
    t:string;
    a:set of char;
    c:boolean;
Begin
 c:=true;
 Writeln('Write text:');
 read(t);
 
 while a<>['a'] do
  begin
   for i:=1 to length(t) do
    begin
      a:=[t[i]];
      k:=i;
      if a=['a'] then break;
    end;
  end;
  
 if t[length(t)] = 'a' then
   begin
    t:='Буква "а" в конце слова))';
    c:=false;
   end;
   
   if c=true then
      writeln('следующая буква после "а":'t[k+1])
     else
      writeln(t);
End.

uses crt;
var st:string;
i:integer;
 
begin
 clrscr;
 for i:=1 to length(st) do if not((st[i]>='0') and (st[i]<='9')) then if (st[i]='-') or (st[i]='+') then write(st[i],st[i]) else write(st[i]);
 readln;
end.

const
  m=['0'..'9'];
  r=['+','-'];
var
  s:string;
  i:integer;
begin
  readln(s);
  i:=1;
  while i<=length(s) do
  begin
    if s[i] in m then
      delete(s,i,1)
    else
      if s[i] in r then
      begin
        insert(copy(s,i,1),s,i);
        inc(i,2)
      end
      else
        inc(i);
  end;
  writeln(s)
end.