Составить программу подсчета жителей населенного пункта. Исходные данные: количество...

Язык программирования какой?

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.