Program pr_1;
var
x,y,sum, umn: integer;
begin
write ('x=');
readln (x);
write ('y=');
readln (y);
sum:=x+y;
umn:=x*y;
writeln ('sum=',sum);
writeln ('umn=',umn);
readln;
end.

Результаты работы внеси в таблицу для заданных x и y.
x-46 y-40

если надо найти среднее число:

a = input('Введите первое число: ')

b = input('Введите второе число: ')

c = input('Введите третье число: ')

print(f'Среднее число: {b}')

если надо найти среднее по значению число:

a = int(input('Введите первое число: '))

b = int(input('Введите второе число: '))

c = int(input('Введите третье число: '))

if (a > b and a < c) or (a < b and a > c):

 print(f'Среднее по значению число: {a}')

elif (b > a and b < c) or (b < a and b > c):

 print(f'Среднее по значению число: {b}')

else:

 print(f'Среднее по значению число: {c}')

Допустим, Соня разбила окно
тогда говорят правду: Миша, Оля и Рома

Допустим, Миша
тогда говорят правду: Миша, Оля и Коля

Допустим, Володя
тогда говорят правду: Соня, Володя, Оля, Коля

Допустим, Аня
тогда говорят правду: Миша, Аня

{просто чтобы убедиться, что решение единственно}

Допустим, Оля
тогда говорят правду: Миша, Оля, Рома

Допустим, Рома
тогда говорят правду: Миша, Оля, Коля

Допустим, Коля
тогда говорят правду: Миша, Оля, Коля, Толя

Допустим, Толя
тогда говорят правду: Миша, Оля, Коля

Действительно, только в одном варианте истинны два высказывания
-> Аня разбила окно