1слово-поле,код буквы п-10111111
2слово-озеро
3слово-лес
Отгадать оказалось легко внимательно читайте задания я то же не сразу разобралась
2 байта = 16 бит => всего значений - 2^16=65536
-1 для нуля
65535
и получается диапазон -32768...32767
min - -32768
Var a,b,c:real;
begin
writeln('введите значения трех углов:');
readln(a,b,c);
if (a+b+c)<>180 then writeln('введены некорректные данные')else
if (a=90)or(b=90)or(c=90) then writeln('прямоугольный')else
if (a=b)and(b=c) then writeln('равносторонний')else
if (a=b)or(b=c)or(a=c) then writeln('равнобедренный')else
writeln('разносторонний')
end.