Составить програму которая в зависимости от порядкого номера…

Program z1; varx: integer; beginwriteln ('Введите номер месяца '); readln (x); Case x of1: writeln ('Январь'); 2: writeln ('Февраль'); 3: writeln ('Март'); 4: writeln ('Апрель'); 5: writeln ('Май'); 6: writeln ('Июнь'); 7: writeln ('Июль'); 8: writeln ('Август'); 9: writeln ('Сентябрь'); 10: writeln ('Октябрь'); 11: writeln ('Ноябрь'); 12: writeln ('Декабрь'); end; end.