( ІВ) Створити блок-схему та програму на мові Pascal для наведеної задачі:

# Python 3.X

'''
В небоскрёбе n этажей и 1 подъезд,
на каждом этаже по 3 квартиры,
лифт останавливается только
на нечётных этажах. Человек садится
в лифт и нажимает номер нужной
ему квартиры. На какой этаж
дома довезёт лифт человека?
'''

n = int(input('n = '))
ap_to = int(input('Номер квартиры: '))
rem_floor = 1 if ap_to % 3 > 0 else 0
floor_ap_to = ap_to // 3 + rem_floor
if floor_ap_to > n:
    raise ValueError('Такой квартиры нет!')
elif floor_ap_to % 2 == 0:
    print('Лифт довезёт человека либо на {} этаж (придётся подняться на 1 этаж по лестнице,'.format(floor_ap_to -1))
    print('либо на {} этаж, и на 1 этаж придётся спуститься.'.format(floor_ap_to + 1))
else:
    print('Лифт довезёт человека на нужный этаж.')

Var
A,B,C:integer;
Begin
C:=365;
Read(A,B);
if A>1 then C:=C-31;
if A=1 then C:=C-B;
if A>2 then C:=C-28;
if A=2 then C:=C-B;
if A>3 then C:=C-31;
if A=3 then C:=C-B;
if A>4 then C:=C-30;
if A=4 then C:=C-B;
if A>5 then C:=C-31;
if A=5 then C:=C-B;
if A>6 then C:=C-30;
if A=6 then C:=C-B;
if A>7 then C:=C-31;
if A=7 then C:=C-B;
if A>8 then C:=C-31;
if A=8 then C:=C-B;
if A>9 then C:=C-30;
if A=9 then C:=C-B;
if A>10 then C:=C-31;
if A=10 then C:=C-B;
if A>11 then C:=C-30;
if A=11 then C:=C-B;
if A>12 then C:=C-31;
if A=12 then C:=C-B;
Write(C);
End.