составить программу на Паскале

// pascalabc.net 3.3, сборка 1579 от 18.11.2017 // внимание! если программа не работает, обновите версию! begin   writeln('*** исходный массив ***');   var a: =matrrandom(2,4,-10,30);   a.println(4); writeln(4*a.colcount*'-');   writeln('п = ',a.elementsbyrow.where(t-> t.between(1,19))           .aggregate(1,(x,y)-> x*y)) end. пример *** исходный массив ***   24  16  22  12     2    5    1    8 п = 15360

1)

a = input('Введите ваш пол (м/ж): ')

if a == 'м':

   print('Вам нужно пройти налево')

elif a == 'ж':

   print('Вам нужно пройти направо')

else:

   print('Ввод не распознан')

input('Введите enter для выхода.')

2)

f = input('Введите вашу фамилию: ')

n = input('Введите ваше имя: ')

o = input('Введите ваше отчество: ')

p1 = input('Введите серию паспорта: ')

p2 = input('Введите номер паспорта: ')

d = input('Введиет дату вылета: ')

t = input('Введите время вылета: ')

nr = input('Введите номер рейса: ')

kol = input('Введите кол-во билетов: ')

k = input('Введите класс обслеживания (эконом/стандарт/бизнес): ')

if k == 'эконом':

   s = 8500 * int(kol)

elif k == 'стандарт':

   s = 12000 * int(kol)

else:

   s = 15500 * int(kol)

print('Добрый день,', f , n)

print('Ваша дата и время вылета:', d + ',', t)

print('Ваш номер рейса:', nr)

print('Паспортные данные:', p1 + ',', p2)

print('Ваше количество билетов:', kol)

print('Общая стоимость:', s)

input('Введите enter для выхода.')

3)

a = input('Введите сообщение: ')

print('Длина вашего сообщения:', len(a))

print(round(len(a) * 0.4))

input('Введите enter для выхода.')