3=0011 (первая цифра,
поэтому два нуля, которые стоят сначала числа -незначащие, 3=11)
F=1111
C=1100
5=0101
3FC5=11 1111 1100 0101 -----> 4 (четыре) значащих нуля.
При структуризации, каталогизации и просто для эргономики.
Const
N=5;
Var
Rost:array[0..N] of real;
Team,i:integer;
st:string;
begin
Team:=0;
for i:=1 to N do
begin
st:='не может быть ';
Rost[i]:=150+random(51);
if (Rost[i]>=170) then
begin
Team:=Team+1;
st:='';
end;
writeln('Претендент ',i,' (рост: ',Rost[i],') ',st,'зачислен в команду' );
end;
writeln('Всего в команду зачислено: ',Team);
end.