баллов!!!

Перевести десятичные числа
0,256
0,65;
0,1875;
456,45
;35,25
в двоичную, восьмеричную, шестнадцатеричную (переводим до трёх знаков после запятой)

Блок-схема - в прилагаемом файле.

Var a,n,i,k:integer; 
Begin 
Readln(n); 
k:=0; 
i:=0;
repeat
i:=i+1;
readln(a); 
if a>0 then k:=k+1; 
until i=n;
Writeln(k); 
End.

Пример:
5
53
-78
67
-12
40
3

Const m=500000; p1=25000; p2=16000; p3=2000; n=100;
var k1,k2,k3:integer;
begin
 for k1:=0 to m div p1 do
  for k2:=0 to (m-k1*p1) div p2 do
    begin
    k3:=n-k1-k2;
    if k1*p1+k2*p2+k3*p3=m then writeln(k1,,k2,,k3);
    end;
end.

Результат:
10 5 85

Ответ, полученный в Pascal ABC: 100.

Господи!А за какой это класс?