Program n1;
var a: integer;
begin
readln(a);
case a of
1..89: writeln('Остроугольный');
90: writeln('Прямоугольный');
91..179: writeln('Тупоугольный');
else writeln('некорректный ввод');
end;
end.
База отправлена на почту, если нужна еще кому то, стучаться в личку.
Кол-во символов = 10*35*79 = 27650;
8 бит = 1 байт;
объём реферата = 27650*1 байт = 27650 байт.