Записать на языке паскаль программу решения , рассмотренной в примере пункта 2.2.4 учебника по информатике за 9 класс автор босова. считайте количество жильцов дома случайным числом из диапазона от 50 до 200 человек, а число домов n=30

const

   n = 30;

var

   a: array [1..n] of integer;

   s, i: integer;

begin

   for i := 1 to n do

   begin

       a[i] := random(151) + 50;

       writeln('Дом ', i, ' = ', a[i]);

   end;

   for i := 1 to n do

       s := s + a[i];

   writeln('Всего ', s);

end.