Var a,b,c:word;
begin
read(a,b,c);
if (a+b>c) and (a+c>b) and (b+c>a) then begin write('Est');
if (sqr(a)>sqr(b)+sqr(c)) or (sqr(c)>sqr(b)+sqr(a)) or (sqr(a)>sqr(c)+sqr(b)) then write ('Tupoy')
end
else write('Net');
end.
Сделай презентацию про любимую музыкальную группу. Или про город, в котором ты родился и живёшь, про субкультуры или современный вид искусства (граффити,например). Смысл ведь в том,чтобы понять принцип создания презентации? Так выбирай всё,что душе угодно :)
Обьект, природный для многих целей, выполняющий разнообразные функции, называют универсальным.