Вводится число n, а затем n чисел. выведите среди n чисел только положительные

Program prog; uses crt;   var a: array [1..100] of real;         i, n: integer;     begin   clrscr;     write('n = ');   readln(n);     for i: =1 to n do   begin         write('a[',i,'] = ');         readln(a[i]);   end;     writeln;   writeln('положительные числа: ');   for i: =1 to n do   if (a[i]> 0) then         writeln('a[',i,'] = ', a[i]);   end.

если есть д ш и в то это не куб а параллелипипед

var 

a,b,c,r: real;

begin

readln(a,b,c,r);

if (2*r< a) and (2*r< b) and  (2*r< c)

then writeln('поместится')

else writeln ('не поместится');

end.

для куба достаточно одного условия (2*r< a) 

x - информационный вес одного символа

n - мощность алфавита (кол-во символов)

 

размер содержащейся в тексте информации находим по формуле:  

 

k - кол-во символов в тексте 

 

амазонка 

 

- один символ несет 8 битов (1 байт)

- байт в письме амазонки

 

омега:  

 

один символ несет 7 битов

байт в письме омеги