Информатика при изготовлении детали измеряется её диаметр . если он меньше 4 и больше 5 то деталь небракованная .определите процент брака в партии из n деталей

Var a,i,n,k: integer; begin readln(n); for i: =1 to n do begin read(a); if (a< 4) or (a> 5) then k+=1; end; writeln(k/n*100: 1: 1); end.

Var      a, b, c, s, p : real;         begin      write('введите катет a : '); readln(a);       write('введите катет b : '); readln(b);                 c : = sqrt(sqr(a)+sqr(b));                 p : = a + b + c;     s : = (a*b)/2;                   writeln('площадь равна : ', s);                 readln; end.

Const n=10; var a: array [1..n] of real; i,k: integer; b,min,s: real; begin for i: =1 to n do begin a[i]: =21*random-10; if a[i]=0 then k: =k+1; write (a[i]: 6: 2); end; writeln; writeln ('нулевых элементов ',k); min: =a[1]; for i: =1 to n do if a[i]< min then begin k: =i; min: =a[i]; end; for i: =k+1 to n do s: =s+a[i]; writeln('сумма после минимального = ',s: 5: 2); for k: =1 to n do for i: =1 to n-1 do if abs(a[i])> abs(a[i+1]) then begin b: =a[i]; a[i]: =a[i+1]; a[i+1]: =b; end; for i: =1 to n do write (a[i]: 6: 2); end.