СРОЧНО!

Запишите результат выполнения программы:

var s,a: string;

i: byte;

begin

s:= '1234';

a:='b';

for i:= length(s) downto 1 do begin

a:= a + s[i] ;

write(a);

end;

end.​