Программный код:

program Task;

var

k, p: integer;

begin

writeln('Введите значения k и p:');

readln(k, p);

if k > p then

k := k div 2

else

k := k * 2;

writeln('Результат: k = ', k);

end.

Блок-схема:

```

Начало

/

/

Ввод k, p Ввод k, p

/

/

|

|

|

/

/

/

/

k > p? k <= p?

/

/

/

/

|

|

|

/

/

/

/

k := k div 2 k := k * 2

/

/

/

/

|

|

|

Вывод k

|

|

Конец

```

Объяснение:

1. Программа начинается с ввода значений k и p с клавиатуры.

2. Затем проверяется условие: если k > p, то k уменьшается в 2 раза (k := k div 2).

3. Если k <= p, то k увеличивается в 2 раза (k := k * 2).

4. Результат (новое значение k) выводится на экран.

5. Программа завершается.

Блок-схема наглядно отображает логику программы и последовательность выполнения операций.

#9uneasy