Сколько дискет ёмкостью 1, 44 мбайт потребуется для хранения информационного объекта ёмкостью 5632, 8 кбайт?

Var   a, b, c, d, e, n: integer; begin   n : = 0;   for a : = 1 to 9 do       for b : = 0 to 9 do           for c : = 1 to 9 do               for d : = 0 to 9 do                   for e : = 0 to 9 do                       if (10 * a + b) * c = (10 * d + e) then n : = n + 1;   writeln(n) end. тестовое решение: 196

Var a,b,c,x,y: real; begin writeln('введите рёбра кирпича через пробел'); readln(a,b,c); writeln('введите размеры дыры'); readln(y,x);   if (a< c) and (b< c) then    begin if (a< x)and(b< y) or (a< y) and (b< x)  then write('пройдёт')end  else   if (b< a) and   ((b< x)and(c< y) or (b< y) and (c< x) )  then   write('пройдёт')    else if (a< y)  and ((c< x)and(a< y) or (c< y) and (a< x))  then write('пройдёт')  else write ('не пройдёт'); end.