Условия существования треугольника - сумма 2ух сторон больше 3ей
var a,b,c:real;
e:boolean;
begin
read(a,b,c);
if (a+b>c) and (a+c>b) and (b+c>a) then e:=true;
writeln(e);
<span>end.
если что то не понятно пишите в комменты</span>
Ответ:
есть программа для такого решения
1) Номера букв
с начала алфавита - 16,5,20,25,17
с конца алфавита - 18,29,14,9, 17
Сумма номеров для каждой буквы 34.
в - 3+31, ц -24+10. И это для любой буквы
2) игра в города
Волгодонск, Калуга
Var n,i: integer;
begin
readln(n);
for i:=1 to 9 do
writeln(n,'*',i,'=',n*i);
end.