Может ли на винчестере быть больше системных загрузчиков, чем на дискете?
почему?

program xxx;

    var i, k : integer;

                  a : array [1..10] of real;

begin

  write('введите элементы массива а: ');

  for i: =1 to 10 do

        readln(a[i]);

  writeln('исходный массив а: ');

  for i: =1 to 10 do

        write(a[i]);

  k: =0;

  for i: =1 to 9 do

      if a[i]< > a[10] then k: =k+1;

  writeln('элементов отдичных от последнего -', k);

  readln

end.

для начала переведем кбайты в биты:

2500кбайт=2500*1024*8=20480000бит,

затем найдем искомое   время: t=объём файла/скорость передачи,

t=20480000/1024000=20 секунд

как я понял тебе нужна программа которая просто выводит на экран нужный тебе текст

вот она

program ohotnik;

uses crt;

var i: integer;

begin 

clrscr;

textcolor(4);

write(' ka}i{gbiu ');

textcolor(12);

write(' oxothuk ');

textcolor(14);

write(' }i{ejiaet ');

textcolor(2);

write(' 3hatb ');

textcolor(3);

write(' rge ');

textcolor(1);

write(' cug9t ');

textcolor(5);

write(' fa3ahbi ');

readln;

end.

зы: слова я пытался писать буквами, я не знаю просто: поддерживает твой паскаль буквы или нет..

read (n);

i : = 1;

repeat

  writeln(i*i);

  i : = i + 1;

untill i*i > n