1.Числовая
2.Видеоинформация
3.Органы чувств
4.Данные
5.Графическая
6.Компьютер
7.Информация
8.Слуховая
9.Информатика
10.Текстовая
С - 4
Е - 18
Т - 1
Ь - 22
Получилось слово ГРАФ
Граф - соединение вершин ребрами
Var k, n,a,b,c:integer;
Begin
read(n);
for a := 1 to n do begin
for b := a to n - a do begin
c := n - a - b;
if (c>=a) and (c>=b) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a) then
k := k + 1;
end;
end;
writeln(k);
End.
Var a,b,c,d,max:integer;
begin
max:=-100000;
readln(a);
if max<a then max:=a;
readln(b);
if max<b then max:=b;
readln(c);
if max<c then max:=c;
readln(d);
if max<d then max:=d;
writeln(max);
<span>end.</span>