Составить программу подсчета жителей населенного пункта. Исходные данные: количество жильцов дома считать случайным числом от 40 до 70, а количество домов n вводится с клавиатуру.
Var a, b, c: integer; begin randomize; writeln('Введите кол-во домов'); Readln(b); for a := 1 to b do begin c := random (30) + 40; writeln ('Жителей в доме ',c) end; writeln('Кол-во жителей в населённом пункте ', c * b); end.