Напечатать числа следующим образом 25 25.5 24.8 26 26.5 25.8 . . 35 35.5 34.8 в паскале

// pascalabc.net 3.1, сборка 1213 от 04.04.2016 var   i: integer; begin   for i: =1 to 11 do writeln(24+i,24.5+i: 5: 1,23.8+i: 5: 1) end. результат выполнения программы: 25 25.5 24.8 26 26.5 25.8 27 27.5 26.8 28 28.5 27.8 29 29.5 28.8 30 30.5 29.8 31 31.5 30.8 32 32.5 31.8 33 33.5 32.8 34 34.5 33.8 35 35.5 34.8

Program xxx; var n, s, k, c : integer; sa : real; begin write ('введите число n-'); readln (n); k: =0; s: =0; while n> 0 do begin c: = n mod 10; s: =s+c; k: =k+1; n: =n div 10 end; write ('сумма цифр = ', s); write ('количество цифр =', k); sa: =s/k; write ('среднее арифметическое =', sa) end.

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

                                                                           

program string_7; var s: string; k,l,i: integer; begin write('введите строку: '); readln(s); k: =0; l: =0; for i: =1 to length(s) dobegin if s[i]='н' then k: =k+1; if s[i]='м' then l: =l+1end; writeln('н=',k); writeln('м=',l); if k> l then writeln ('больше букв н'); if k< l thenwriteln ('больше букв м'); if (k = 0) and (l = 0) thenwriteln ('таких букв нет'); end.

 

 

так будет элсе выкидывало бы что букв н больше, если бы ни м ни н не встретилось))