Паскаль (простая)

[MKS23]

для данной строки S,вывести все ее символы в возрастающем порядке

[BDA]

Раз считаете, что простая, почему же не сделали ?

uses
  crt;

var
  s: string;
  a: set of char;
  i: integer;

begin
  a := [];
  readln(s);
  for i := 1 to length(s) do
    a := a + [s[i]];
  for i := 0 to 255 do
    if chr(i) in a then
      write(chr(i));
  readln;
end.

[Serge_Bliznykov]

MKS23, тупим по чёрному?!

а эта чья тема?!
решить на паскале

и что характерно - с решением задачи!

кроме того, напоминаю, что
1) Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.

2) Кросспостинг (создание одинаковых тем) запрещён правилами форума.