Написать программу, которая вычисляет среднее арифметическое вводимой с клавиатуры последовательности дробных чисел. Количество чисел должно задаваться во время работы программы. (цикл для)(паскаль )

var   i, count : integer;   summ, temp : real; begin   summ := 0;   readln(count);   for i := 1 to count do   begin     readln(temp);     summ := summ + temp;   end;    writeln(summ / count); end.

Program Nooobodyyy; uses crt; var   i,how:integer;   ch,appr,sum:real; begin   writeln('*** Alphaeus is thinking... ***');   writeln('***          OK             ***');   writeln(); writeln();   writeln('Программа запрашивает N дробных чисел и находит их среднее арифметическое');   sum:=0;   write('Введите количество чисел: '); readln(how);   for i:=1 to how do     begin       write('Введите ',i,'-e число: '); read(ch);       sum:=sum+ch;     end;   appr:=sum/how;   writeln('Cреднее арифметическое равно ',appr:8:2); end.