Ате жазулары бар ұяшықтарды анықтау үшін шартты форматтауды қолдануға бола ма?

var s: string;

i,j,k: integer;

unique: boolean;

begin

  for i : = 1000 to 9999 do

  begin

        s : = str(i);

        unique: =true;

        for j: = 1 to length(s)-1 do

              for k : = j+1 to length(s) do

              begin

                    if s[j] = s[k] then unique: =false;

              end;

        if unique then

            writeln(i);

  end;

end.

может длинее, но универсальное.

если текст распознан, то да. т. е. наобходима программа разспознования fine reader

ну сначала должны поехать два близнеца

обранто возвращается один

когда тот вернулся едет отец

после того как отец доехал, с того берега едет обратно второй сын

затем едут на тот берегопять оба сына и возвращается один

после того как сын доехал садится и едет мать

когда мать доехала садится один сын плывет к другому и оба они возвращаются назад

таким образом все оказалась на том береге  =)

var a : real;

begin 

  readln(a);

  if a> =0 then writeln(a-50) else writeln(a+100);

end.