7. Ввести двухзначное число. Если сумма цифр числа четная, то увеличить число на 2 ,в противном случае уменьшить на 2.
 Program vet7; 
Var a,b,d,s:integer; 
Begin
 writeln ('Введите значение переменной a'); 
Readln (a); 
b:= a div 10;  d:= a mod 10; 
 S:= b+d;
 If s mod 2=0 then a:=a+2 else a:=a-2; 
Writeln ('Переменная d = ',d);
 End.  

8. Составить программу, которая по трем введенным вами числами определит, могут ли эти числа быть длинами сторон треугольника
Program vet8; 
Var a,b,с:integer; 
Begin 
writeln ('Введите значение переменных a, b и с'); 
Readln (a,b,c); 
If a>=b+c then Writeln (‘Нет’) 
Else if b>=a+с  then Writeln (‘Нет’) 
Else if c>=a+b  then Writeln (‘Нет’)
 Else Writeln (‘Да’); 
End.