Узнайте сумму и количество отрицательных элементов в первой половине вектора. n[13] (программа в паскале)

Pascal abc первый вариант с вводом числа с клавы, второй с циклом for 1) var a: integer; s: string; begin write('сумма сдачи = '); read(a); if (a> 10)and(a< 21) then s: = ' копеек' else case a mod 10 of 1: s: =' копейка'; 2..4: s: =' копейки'; 0,5..9: s: =' копеек'; end; writeln(a,s); end. 2) var a: integer; s: string; begin for a: = 1 to 100 do   begin   if (a> 10)and(a< 21) then s: = ' копеек'   else   case a mod 10 of   1: s: =' копейка';   2..4: s: =' копейки';   0,5..9: s: =' копеек';   end;   writeln(a,s)   end end.

Программа на паскале: var s: string; begin   read(s);   write(copy(s, 1, 2));   case copy(s, 4, 2) of     '01': write(' января ');     '02': write(' февраля ');     '03': write(' марта ');     '04': write(' апреля ');     '05': write(' мая ');     '06': write(' июня ');       '07': write(' июля ');     '08': write(' августа ');     '09': write(' сентября ');     '10': write(' октября ');     '11': write(' ноября ');     '12': write(' декабря ');   end;   writeln(copy(s, 7, 4), ' года'); end.