Пользователь вводит с клавиатуры номер месяца (1-12). Необходимо вывести на экран название месяца.
Например, если 1, то на экране надпись январь, 2 — февраль и т.д.
Когда пользователь вводит 0, программа должна завершить работу
P.S. я все сделал единственное какую то строку пропустил изза чего образуется вечный цикл. использовать надо while.

months = [

   "январь",

   "февраль",

   "март",

   "апрель",

   "май",

   "июнь",

   "июль",

   "август",

   "сентябрь",

   "октябрь",

   "ноябрь",

   "декабрь"

]

x = 1

while x != 0:

   x = int(input())

   if x in range(1, 13):

       print(months[x-1])

   else:

       print("Неверный ввод")

Объяснение:

months - список строк месяцев. Изначальное значение переменной любое, кроме 0, к примеру, 1. Цикл начинается при условии неравенства переменной нулю. Мы циклически запрашиваем новое значение до тех пор, пока не будет введено число 0.

1)

var    a, b, c, d, f : integer;     s : real; begin

    writeln( 'введите стороны треугольника: ' );     write( 'a = ' ); readlln( a );     write( 'b = ' ); readlln( b );     write( 'c = ' ); readlln( c );

    writeln( 'введите стороны прямоугольника: ' );     write( 'd = ' ); readlln( d );     write( 'f = ' ); readlln( f );     s : = (a + b + c) / 2;     s : = sqr( s * (s-a) * (s-b) * (s-c) );     if (d * f) = s then         writeln( 's прямоугольника = s треугольника.' )     else if (d * f) > s then         writeln( 's прямоугольника больше.' )     else         writeln( 's треугольника больше.' );     readln; end.

2)

var     m, v, m1, v1 : integer; begin

    writeln( 'введите объем и массу первого тела: ' );     write( 'm = ' ); readlln( m );     write( 'v = ' ); readlln( v );

    writeln( 'введите объем и массу второго тела: ' );     write( 'm = ' ); readlln( m1 );     write( 'v = ' ); readlln( v1 );     if (m / v) = (m1 / v1) then         writeln( 'плотности равны.' )     else if (m / v) > (m / v) then         writeln( 'плотность первого тела больше.' )     else         writeln( 'плотность второго тела больше.' );     readln; end.

3)

var    a, b : integer; begin

    writeln( 'введите числа: ' );     write( 'a = ' ); readlln( a );     write( 'b = ' ); readlln( b );

    if a mod b = 0 then         write( 'число a является делителем числа b.' );     if b mod a = 0 then         write( 'число b является делителем числа a.' );     readln; end.