Как называется деталь? Из какого материала ее изготовляют? 2)Какой масштаб указан на чертеже? 3)Какие виды даны на чертеже? 4)Какие изображения передают форму детали? 5)Сочетанием, каких геометрических тел образована ее форма? 6)Опишите форму детали. 7)Чему равны габаритные размеры? Какова величина геометрических тел, образующих форму детали? 8) Укажите шероховатость детали. Диск

Var a, b: array[1..10000] of integer; n, count, i, ianswer, cnt: integer; begin readln(n); //количество пар for i: = 1 to n do begin read(a[i]); //читаем первый катет readln(b[i]); //читаем второй катет end; ianswer: = 1; count: = 1; for i: = 2 to n do begin   if a[i]*b[i] = a[ianswer]*b[ianswer] then inc(count);   if a[i]*b[i] >   a[ianswer]*b[ianswer] then   begin   count: = 1;   ianswer: =i;   end; end; if count = 1 then begin writeln('треугольник с наибольшей площадью равной ', a[ianswer]*b[ianswer], 'и, имеет размеры катетов ', a[ianswer], ' и ', b[ianswer], '. номер треуголника: ', ianswer); halt; end; writeln('всего ', count, ' треугольника(-ов) с максимальной площадью равной ', a[ianswer]*b[ianswer]); cnt: = 1; for i: = 1 to n do if a[ianswer]*b[ianswer] = a[i] * b[i] then begin writeln(cnt, '-й треугольник имеет катеты ',a[i], ' и ', b[i], '. номер этого треугольника: ', i); inc(cnt); end; end.