Из пяти чисел, записанных в десятичной
системе счисления, найди число, в
двоичной записи которого наибольшее
количество единиц. В ответе запиши
количество единиц в двоичной записи
этого числа.
1 3010,
2 1310
3 1710
4 3510
5 12810.​

10*10*1=100 b=12,5 b

vara,b: integer; c: real; beginwriteln ('1'); read (a); writeln ('2'); read (b); c: =(a/1)/(1/b); writeln (c); end.

смотри блок-схему в приложенном файле

program ; var n : integer; begin    for n: = 10 to 99 do        if n mod 13 = 0 then writeln(n);     readln; end.