Деталь цилиндрической формы расположена горизонтально. левая часть детали- цилиндр 20 мм, длинной 40 мм. на нём снята фаска размером 2 мм под углом 45° и нарезана метрическая резьба с мелким шагом 2 мм на длину 25 мм. средняя часть детали цилиндр 30 мм, длинной 80 мм. на нём с двух сторон сняты фаски 3×45°. правая часть цилиндр 40 мм, длинной 30 мм. справа налево в детали просверлело отверстие 12 мм и глубиной 25 мм, в котором нарезана метрическая резьба с мелким шагом 1 мм на длину 20 мм. цилиндр 20 мм ввёрнут до упора во втулку 40 мм и длинной 40 мм, в которой на всю длину нареза резьба.
var
N, i, P, O, Z : Integer;
R : Real;
begin
Write('n = '); ReadLn(N);
P := 0; O := 0; Z := 0;
// для for // для while // для repeat
for i := 1 to N do // i := 0; // i := 0;
// while i < N do // repeat
begin // begin // Inc(i)
// Inc(i);
Write(i, ' число = '); ReadLn(R);
case sign(R) of
+1 : Inc(P);
-1 : Inc(O);
0 : Inc(Z);
end;
end; // end; // until i = N;
WriteLn('Процент положительных чисел: ', P*100/N);
WriteLn('Процент отрицательных чисел: ', O*100/N);
WriteLn(' Процент нулевых чисел: ', Z*100/N);
end.