Вычисли число строк в таблице, не считая шапки таблицы. число переменных в выражении — 9

program zadacha;

uses crt;

var a: array[1..6] of integer;

        max,i: integer;

begin

for i: =1 to 6 do readln(a[i]);

max: =a[1];

for i: =1 to 6 do if max > a[i] then max: =a[i];

writeln(max);

readln;

end.

вроде правильно..

4: 2

2|0

1|0

0|1

4₁₀=100₂

10: 2

5|0

2|1

1|0

0|1

10₁₀=1010₂

1996: 2

998|0

499|0

249|1

124|1

62|0

31|0

15|1

7|1

3|1

1|1

0|1

1996₁₀=11111001100 

100.1010.11111001100