2. В программе «:=» обозначает оператор присваивания, знаки «+», «-», «*» и «/» — соответственно операции сложения, вычитания, умножения и деления. Правила выполнения операций и порядок действий соответствуют правилам арифметики. Определите значение переменной a после выполнения алгоритма:

а := 5
b := 4
b := 100 - a*b
a := b/16*a

В ответе укажите одно целое число — значение переменной a.

закодированный текст: byck is my dog.

var

x: real;

begin

readln(x);

writeln(round(x));

end.

только  25-18=7 человек

только французский 27 - 18 = 9 человек

ну а на вопросы не отвечу =))

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.

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