Впрограмме используется одномерный целочисленный массив а с
индексами от 0 до 4. значения элементов равны 5, 7, 6, 4, 10
соответственно, т.е. a[0] = 5, a[1] = 7 и т.д. после выполнения следующего
фрагмента программы значение а[1] равно
j: = 1
нц пока a[i] > a[i-1]
t: = a[i]
a[i]: = a[i-1]
a[j-1]: =t
j: =i+1
кц

Самое принципиальное отличие: это тип носителя.
Во флешках - это микросхема памяти или набор из таких микросхем, а обычный жесткий диск (не гибридный и не SSD) - это набор дисковых пластин со специальной поверхностью, восприимчивой к магнитному полю.
А так данные разбиваются на биты или группы битов и хранятся в специальных ячейках носителя, а контроллер носителя определяет работу диска при поступлении команды, например, на чтение или на запись.
Если нужно ответить более развернуто - смотрим в спецальных справочниках и энциклопедиях.

Var a,b,c,angA,angB,angC,cs: real;
    s: string;
begin
  write('длины сторон через пробел:  ');
  readln(a,b,c);
  if (a+b>c) and(a+c>b) and (c+b>a) then
  begin
    cs:=(sqr(a)+sqr(b)-sqr(c))/(2*a*b);
    angC:=360*ArcCos(cs)/(2*pi);
    writeln('угол С = ',angC:4:2);
    cs:=(sqr(a)+sqr(c)-sqr(b))/(2*a*c);
    angB:=360*ArcCos(cs)/(2*pi);
    writeln('угол B = ',angB:4:2);
    angA:=180-angB-angC;
    writeln('угол A = ',angA:4:2);
    if (angA<90) and (angB<90) and (angC<90) then
       s:='треугольник остроугольный';
    if (angA>90) or (angB>90) or (angC>90) then
       s:='треугольник тупоугольный';
    if (sqr(a)+sqr(b)=sqr(c)) or (sqr(a)+sqr(c)=sqr(b)) or 
      (sqr(b)+sqr(c)=sqr(a)) then
       s:='треугольник прямоугольный';
       writeln(s);
     end
  else writeln('треугольник составить нельзя');
end.