Паскаль. Написать программу, в которой выполняются следующие действия:

с клавиатуры вводится первое число;
с клавиатуры вводится второе число;
вводится слово, обозначающее операцию (либо “direct”, либо “undirect”);
в том случае, когда вводится слово “direct”, на экран выводится результат равный частному от деления первого числа на второе (если второе число равно 0, выводится только сообщение «деление на 0»);
в том случае, когда вводится слово “undirect”, на экран выводится результат равный частному от деления второго числа на первое (если первое число равно 0, выводится только сообщение «деление на 0»).
в том случае, когда вводится другое слово (не “direct” и не “undirect”), на экран выводится только сообщение «ошибка».

python

Говори если я что-то не правильно понял или если что-то не понятно

1)

from math import sqrt

a = int(input('Первая сторона: '))

b = int(input('Вторая сторона: '))

print(f'Площадь: {a*b}\nПериметр: {(a+b)*2}\nДиагональ: {sqrt(a**2+b**2)}')

2)

a = int(input('Первая сторона: '))

b = int(input('Вторая сторона: '))

c = int(input('Третья сторона: '))

[print('Равнобедренный') if a == b or a == c or b == c else print('Не равнобедренный')]

3)

from math import cos

try:

 b = int(input('b: '))

 c = int(input('c: '))

 print((b + cos(c)) / (b - c))

except ZeroDivisionError:

 print('Данный пример не имеет решения потому-что происходит деление на ноль')

4)

x = int(input('x: '))

if x > 9:

 print(36)

elif -4 <= x <= 9:

 print(2 * x)

else:

 print(x**2 + 1)

5)

score = int(input('Оценка: '))

if 1 <= score <= 3:

 print('Низкий уровень')

elif 4 <= score <= 6:

 print('Средний уровень')

elif 7 <= score <= 9:

 print('Достаточный уровень')

elif 10 <= score <= 12:

 print('Высокий уровень')

6)

n = input('Число: ')

n2 = list(n)

n2[0], n2[3] = n2[3], n2[0]

[print('Первое число больше чем второе') if int(n) > int(''.join(n2)) else print('Первое число не больше чем второе')]

//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию
uses System.Linq;
begin
    begin
        writeln('I');
        var n := ReadInteger('n=');
        Writeln((1 + 1 + Power(2, n - 1)) * n / 2);
    end;
    
    begin
        writeln;
        writeln('II');
        var n := ReadInteger('n=');
        Writeln(n mod 11 = 0 ? 'YES' : 'NO');
        
    end;
    
    begin
        writeln;
        writeln('III');
        var a := ReadArrInteger('Документы', ReadInteger('n=')).ToList;
        writeln;
        
        while a.Any() do
        begin
            write(a[0], ' ');
            a.RemoveAt(0);
            if not a.Any then break;
            
            write(a.Last, ' ');
            a.RemoveAt(a.Count - 1);
            if not a.Any then break;
            
            var n := 0;
            if a.Count > 1 then n := a.Count div 2 - 1;
            write(a[n], ' ');
            a.RemoveAt(n);
        end;
    end;
end.