Нужно составить программы. Напишите кто-нибудь, очень нужно. 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.