кто шарит в Паскаль: реализовать работу процедур:
1. Составить процедуру для дозаписи в текстовый файл k-ой строки матрицы A (m на n)
2.Составить процедуру для вывода на экран матрицы A(m на n) в виде матрицы.
3.Составить процедуру упорядочивания по возрастанию k-ой строки матрицы A (m на n)

from math import sqrt, acos, pi

A1,B1,C1=map(float,input('A1 B1 C1 через пробел: ').split(' '))

A2,B2,C2=map(float,input('A2 B2 C2 через пробел: ').split(' '))

if A1*A2+B1*B2==0: print('прямые перпендикулярны')

else:

   ang=(A1*A2+B1*B2)/(sqrt(A1*A1+B1*B1)*sqrt(A2*A2+B2*B2))

   ang=round(acos(ang)*180/pi)

   print('угол между прямыми: ',ang,' град.')

>>>  

A1 B1 C1 через пробел: -1 1 -3

A2 B2 C2 через пробел: 1 1 -1

прямые перпендикулярны

>>>  

A1 B1 C1 через пробел: 1.5 -3.8 5

A2 B2 C2 через пробел: 2.6 3.4 2

угол между прямыми:  121  град.

age=int(input('Введите ваш возраст: ')

if age < '18':

    print('Вам запрещено вступать в брак')

    print('Вам запрещено получать водительские права')

    print('Вам запрещено покупать алкогольные напитки')

elif age >= '18':

    print('Вам разрешено вступать в брак')

    print('Вам разрешено получать водительские права')

    print('Вам разрешено покупать алкогольные напитки')

Объяснение:

Первая команда отвечает за ввод возраста.

Вторая команда отвечает за то, что есть тебе меньше 18, то тебе запрещено делать подобные действия.

Третье команда делает напротив второй.

Команда if дает условие, при которой будут вводится следующие команды.

Команда elif тоже дает условие, но она работает, если первое условие не будет выполнено.

Итого мы получаем то, что программа скажет, можно ли нам делать подобные действия или нет