Нужно составить программы. Напишите кто-нибудь, очень нужно.
1)Даны вещественные числа a,b,c. Определите, существует ли треугольник со сторонами a,b,c?
2) Дано целое положительное число. Определите, оканчивается ли оно цифрой 7

{Даны вещественные числа a,b,c. Определите, существует ли треугольник со сторонами a,b,c?}var a,b,c:real;begin  writeln('введите стороны треугольника');  readln(a, b, c);  if (a+b>c) and (a+C>b) and (b+c>a) then  writeln('треугольник существует')  else   writeln('треугольник не существует');end.{ Дано целое положительное число. Определите, оканчивается ли оно цифрой 7}var  N:integer;begin  writeln('введите число');  readln(N);  if n mod 10= 7 then    writeln('оканчивается  цифрой 7')   else    writeln( 'не оканчивается цифрой 7');end.