Перевести в паскаль : x в минус первой степени, x в четвертой степени, x в минус второй степени, x в пятой степени , x в степени 100, x во второй степени

Var     t: integer; begin write('введите температуру воздуха: '); readln(t); if t > 0 then write('дождь') else write('снег') end. var     a: integer; begin write('введите трёхзначное число: '); readln(a); a: =abs(a); writeln(a div 100,'+',(a div 10) mod 10,'+',a mod 10,' = ',a div 100+(a div 10) mod 10+a mod 10); end. var     a,b: integer; begin write('введите два числа: '); readln(a,b); if a> b then write('квадрат меньшего: ',b*b) else write('произведение чисел: ',a*b) end.

first_list = []

second_list = []

coincidences_list = []

first_list_len = input('Длина первого списка: ')

for i in range(1, int(first_list_len)+1):

   input_text = input('{} элемент певого списка: '.format(i))

   first_list.append(input_text)

second_list_len = input('\nДлина второго списка: ')

for i in range(1, int(second_list_len)+1):

   input_text = input('{} элемент певого списка: '.format(i))

   second_list.append(input_text)

for i in first_list:

   if i in second_list and i not in coincidences_list:

       coincidences_list.append(i)

print('\nПовторяющиеся значения: {}'.format(' '.join(coincidences_list)))