Кто сможет решить с подробным решением...что-то не понимаю

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.

склонение- это изменение слова по падежам.

к 1-му склонению относятся имена существительные мужского и женского рода с окончаниями -а, -я в именительном падеже, например, дядя, коза.

ко 2-му склонению относятся имена существительные мужского рода с нулевым окончанием и среднего рода с окончаниями -о, -е в именительном падеже, например, стол, лось, небо, море.

к 3-му склонению относятся имена существительные женского рода с нулевым окончанием в именительном падеже, например, любовь, дочь.

чтобы определить,к какому склонению относится имя существительное, нужно определить его род и окончание в именительном падеже.

существительные кино,кофе,метро - несклоняемые (неизменяемые), не относятся ни к одному из трёх типов склонения. у них нет окончания.

мягкий знак после шипящих на конце существительных 3-го склонения (женского рода) пишется, а существительных мужского рода 2-го склонения не пишется.

var kol,a,b,c: longint;

begin

  read(a,b,c);

  if a< 0 then kol: =kol+1;

  if b< 0 then kol: =kol+1;

  if c< 0 then kol: =kol+1;

  write(kol);

end.

1)

var 

a,b,c: real;

begin

readln(a,b);

c: =180-a-b;

if (a> 90) or (b> 90) or (c> 90) then writeln('тупоугольный')

else

if  (a=90) or (b=90) or (c=90) then writeln('прямоугольный')

else  writeln('остроугольный');

end.

2)

var

v: real;

begin

readln(v);

if v< 7.8 then writeln ('ракета упадет на землю');

if v=7.8 then  writeln ('ракета станет спутником земли');

if (v> 7.8) and (v< =16.4) then  writeln ('ракета останется в пределах солнечной системы'); if (v> 16.4) then  writeln ('ракета покинет пределы солнечной системы');  

end.