нужно написать программы для pascalabс 1.вычисления суммы, разности, произведения и частного цифр в трехзначном числе 2.поменять местами первую и последнюю цифры в трехзначном числе. 3.вывести цифру, показывающую количество десятков в четырехзначном числе

Program egor_sasha; var num_eg, num_sash,pri,pri1: real; var mes_eg,mes_sash: real; beginwriteln('numer egora'); readln(num_eg); writeln('numer sashi'); readln(num_sash); writeln('mesto egora (verkh=1,vniz=0)'); readln(mes_eg); writeln('mesto sashi (verkh=1,vniz=0)'); readln(mes_sash); pri: =num_sash+1; pri1: =num_eg+1; if num_eg=pri then    writeln('yes')  else writeln('no'); if num_sash=pri1 then    writeln('yes')  else writeln('no'); if mes_eg=1 then    writeln('egor-high')else  writeln('egor-low'); if mes_sash=1 then    writeln('sasha-high')else  writeln('sasha-low'); end.

operand = input('Enter operand ("+" - 1, "-" - 2, "/" - 3, "*" - 4): ')

value_1 = int(input('Enter value 1: '))

value_2 = int(input('Enter value 2: '))

if operand == '1':

   result = value_1 + value_2

elif operand == '2':

   result = value_1 - value_2

elif operand == '3':

   result = value_1 / value_2

elif operand == '4':

   result = value_1 * value_2

else:

   result = 'Operand not found'

print(f'Result = {result}')

a, b, c = map(int, [input(i) for i in ['a: ', 'b: ', 'c: ']])  # перефразирированный запрос данных

# условия построения треугольника по 3-м сторонам

print(all([a < b + c,

          b < a + c,

          c < a + b]))