Помогите написать 2 программы на паскале , пожалуйста(((

1)var a, b, c: integer;begin write (' Длины сторон: '); readln (a,b,c); if (a < b+c) and (b < a+c) and (c < a+b) then writeln ('Треугольник существует.') else writeln ('Треугольник не существует.');readlnend.

2)program chislo; var n : shortint; begin write('Введи число: '); readln(n); case n of 1: write('Январь'); 2: write('Февраль'); 3: write('Март'); 4: write('Апрель'); 5: write('Май'); 6: write('Июнь'); 7: write('Июль'); 8: write('Август'); 9: write('Сентябрь'); 10: write('Октябрь'); 11: write('Ноябрь'); 12: write('Декабрь'); end; End.