Можно фото???Ато не понятно
Program abc;
var a,b,c:integer;
begin
writeln('Введите первую сторону');
read(a);
writeln('Введите вторую сторону');
read(b);
writeln('Введите третью сторону');
if (a>b) and (a>c) then write(a);
if (b>a) and (b>c) then write(b);
if (c>a) and (c>b) then write(c);
if (a=b) or (a=c) or (c=b) then write('Есть равные стороны и нет большей')
end.
Нет не достаточно, эти признаки могут быть и у других животных например: коза.
Соловей
---------------------
0.5*1024=512 байт
512*8=4096 бит
4096/128=32
в 32 раза больше