Написать программу в pascalabc​

Первое поколение эвм   с середины 1940-х годов конца 1950-х годов . элементная база: электронные лампы эвм   потребляют большое кол-во энергии,маленькая скорость действия.программирование ведется в машинных кодах. 2 поколение эвм   с конца 1950-х до середины 1960-х годов  элементная база : элементы.для программирование используются алгоритмические языки. 3 поколение эвм   с середины 1960-х до конца 1970-х годов элементная база:   интегральные схемы ,многослойный печатный монтаж .значительное уменьшение габаритных размеров эвм   повышение их надежности увелечение производительности.доступ с удаленных терминалов. 4поколение эвм   с конца 1970-х по настоящее время . элементная база: микропроцессоры, большие интегральные схемы .улучшены технические характеристики .массовый выпуск персональных п.к.   мощные вычислительные системы   с высокой производительностью   создание дешевых микроэвм опытные разработки   интелектуальных компьютеров ; внедрение во все сферы комьютерных сетей .

Var i,n,nmb: integer;     dg,sm: real; begin   sm: =0;   nmb: =0;   write('n = ');   readln(n);   write('числа через пробел: ');   for i: =1 to n do   begin     read(dg);     if dg< 0 then     begin       sm: =sm+dg;       nmb: =nmb+1;     end;     end;   writeln('сумма отрицательных чисел = ',sm);   writeln('среднее арифметическое = ',sm/nmb); end.