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

Question

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

---

Answer 1

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.

Comments

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 ('Треугольник не существует.');

readln
end.