1.В классе 1100102% девочек и 10102 мальчиков. Сколько учеников в классе?
2.Чему равен результат сложения 1102 и 128?
3.Постройте таблицы истинности для логического выражения B&(AṾB)
4.Система команд исполнителя Вычислитель состоит из двух команд, которым присвоены номера: 1 – вычти 2, 2 – умножь на 3. Первая из них уменьшает число на 2, вторая увеличивает число в 3 раза. При записи алгоритмов для краткости указывают лишь номера команд. Запишите алгоритм, содержащий не более пяти команд, с которого из 11 будет получено число 13.
5.Решите задачу на языке Паскаль. Стороны прямоугольника ABCD вводятся с клавиатуры (а и в). Найдите периметр прямоугольника. Результат вывести на экран НАДО ЗАРАНЕЕ

Алгоритм оказания первой что при оказании первой вам ничего не угрожает и вы не подвергаете себя опасности.Обеспечить безопасность пострадавшему и окружающим (например, извлечь пострадавшего из горящего автомобиля).Проверить наличие у пострадавшего признаков жизни (пульс, дыхание, реакция зрачков на свет) и сознания. Для проверки дыхания необходимо запрокинуть голову пострадавшего, наклониться к его рту и носу и попытаться услышать или почувствовать дыхание. Для обнаружения пульса необходимо приложить подушечки пальцев к сонной артерии пострадавшего. Для оценки сознания необходимо (по возможности) взять пострадавшего за плечи, аккуратно встряхнуть и задать какой-либо вопрос.

1. В приведенном коде ошибка. Не хватает ";" в третьей строке снизу.
2. Немного изменим ваш код и получим искомое значение x
Искомое число х = 16293

var
  x, y, a, b, k: integer;

begin
  k:=10000;
  repeat
    x:=k;
    a := 0; b := 0; y := 1;
    while x > 0 do
    begin
      if (x mod 10) mod 2 = 0
        then
        a := a * 10 + x mod 10
      else begin
        y := y * 10;
        b := b * 10 + x mod 10
      end;
      x := x div 10
    end;
    a := a * y + b;
    k := k + 1;
    until a = 26391;
    writeln(a:8, k-1:8); 
end.