Определить какое время в минутах будет проигрывать звукозапись, если объем звукового файла 22009 килобайт, чистота дискритизации равна 14 кологерц, разрядность 21 бит. ответ дать с точностью до минуты.

var

n: integer;

begin

readln(n);

case n mod 12 of

4: writeln('год крысы');

5: writeln('год коровы');

6: writeln('год тигра');

7: writeln('год зайца');

8: writeln('год дракона');

9: writeln('год змеи');

10: writeln('год лошади');

11: writeln('год овцы');

0: writeln('год обезьяны');

1: writeln('год петуха');

2: writeln('год собаки');

3: writeln('год свиньи');

end;

end.

во время поиска по каталогам компьютер выдает файлы и папки в порядке их расположения по категориям каталога, например: каталог microsoft - выдавать будет файлы, которые будут находиться в этом каталоге. 

то есть система каталогов - это поиск по системным папкам, по каким-либо сборникам файлов. 

поиск по ключевым словам - это иная система. компьютер осуществляет поиск по категории наличия   в файле или папки определенных слов или словосочетаний. например, поиск по ключевому слову microsoft   - компьютер выдает файлы и папки, в названии или содержании которых будет иметься искомое слово.

var a: array [1..100] of real; i,n: integer;

t: real; begin  randomize;   n: =20;   for i: = 1 to n do begin      a[i]: =random(n*10)- 10*n div 2 ;       write(a[i]: 4);       if i mod 10=0 then writeln;   end;  

  t: =a[1]

  for i: = 1 to n do begin      a[i]: =a[i]/t ;       write(a[i]: 4);       if i mod 10=0 then writeln;   end;   end.

на чём писать? ну впрочем саму суть тут в условии:

объявляешь 3 числа: a b c

и условие

  if(a> 0)then

a: =a*a;

if(b> 0)then

b: =b*b;

if(c> 0)then

c: =c*c;

  выводишь на экран(или как там надо)

сори за ошибки давно на паскале не писал