перевести код с питона на паскаль.

условие:

Дано количество точек на плоскости, затем сами точки. Они описывают выпуклый многоугольник на плоскости. Найти площадь многоугольника (использовать косое произведение)

код:

n = int(input())
arr = []
for i in range(n):
! arr.append([int(x) for x in input().split()])
s = 0
for i in range(n):
! a = arr[i]
! b = arr[(i+1) % n]
! s += (a[0] * b[1] - a[1] * b[0]) / 2
print(s)

! там, где должны быть tabы

n = int(input())
arr = []
f = 1
for i in range(n):
! arr.append([int(x) for x in input().split()])
for i in range(n):
! a = arr[i]
! b = arr[(i+1) % n]
! c = arr[(i + 2) % n]
! x1 = b[0] - a[0]
! y1 = b[1] - a[1]
! x2 = c[0] - b[0]
! y2 = c[1] - b[1]
! s = (x1 * y2 - x2 * y1) / 2
! if i == 0:
! ! if s > 0:
! ! ! p = 1
! ! else:
! ! ! p = -1
! else:
! ! if p * s < 0:
! ! ! print('Не выпуклый!')
! ! ! f = 0
if f == 1:
! print('Выпуклый!')

Самая тяжелая профессия - быть человеком. Это действительно, самая тяжелая профессия, так как не каждый может быть им. Человеком не появляются - им становятся.

Человеком может стать каждый. Необходимо только выучиться им быть: вырасти, набратся опыта пожилым, а так же и сверстникам, и остальным. Оборонять слабых. Попытаться прожить жизнь, без вредных повадок. Не дерзить, почитать старших, почитать суждения иных, слушать, созидать и тому сходственное.

Я размышляю, меньше всего шансов стать человеком у тех, кто делает все напротив вышесказанному. Я встречал малюсенько истинных людей, их вообщем то, мало осталось, но время все меняет. Меняет окружающую среду, меняет технологии, меняет и людей.

Стать человеком, могут все без исключения, основное поверить, и не лениться.

Самая тяжелая профессия - быть человеком. Это действительно, самая тяжелая профессия, так как не каждый может быть им. Человеком не появляются - им становятся.

Человеком может стать каждый. Необходимо только выучиться им быть: вырасти, набратся опыта пожилым, а так же и сверстникам, и остальным. Оборонять слабых. Попытаться прожить жизнь, без вредных повадок. Не дерзить, почитать старших, почитать суждения иных, слушать, созидать и тому сходственное.

Я размышляю, меньше всего шансов стать человеком у тех, кто делает все напротив вышесказанному. Я встречал малюсенько истинных людей, их вообщем то, мало осталось, но время все меняет. Меняет окружающую среду, меняет технологии, меняет и людей.

Стать человеком, могут все без исключения, основное поверить, и не лениться.