за сколько тактов будет произведена запись в массив или чтение из массива raid 4,стостоящего из 3 дисков с размером кластера 1024 байт , файла обьемом 716 000 байт

программа №4program str999; uses crt; var s: string; begin writeln('введіте фразу'); read(s); if (s='край озер') then writeln ('край озер лесов и рек'); if (s='я учусь в школе') then writeln ('я учусь в 10-м классе') end.

№5program p_1; uses crt; var s: string; begin writeln('введите фразу'); read(s); if (s='моя родина беларусь') then writeln ('беларусь моя родина'); if (s='люблю цябе мой родны кут') then writeln ('мой родны кут люблю цябе') end.  

program m; uses crt; var k,s: real; i: integer; beginclrscr; for i: =1 to 10 dobegink: =i/(i+1); s: =s+k; end; writeln(s: 2: 2); readkey; end.

это вообщето

v= v1+v2

t=(v1*t1+v2*t2)/v

const  n = 20;   var  a : array [1..n] of integer;   pos, sum, znak : integer;   begin  write('массив: ');   randomize;   for pos : = 1 to n do  begin  a[pos] : = random(101) - 50;   write(a[pos]: 4);   end;   writeln;   for pos : = 1 to n div 2 do sum : = sum + a[pos] -a[n div 2 + pos];   writeln('разность между суммой 1-й половины и 2-й = ', sum);   end.