Составить программу, рисующую человека на карте беларуси рядом с областными , размер которого пропорционален количеству жителей.

ниже выведите гербы городов и численность населения. цвет текста выбирается в зависимости от численности населения: < 500 тыс. человек — зеленый, от 500 тыс. до 1000 тыс. человек — темно-красный, > 1000 тыс. человек — красный.

нужно сделать это в программе pascalabc

Никакое программное обеспечение не совершенно, поэтому большинство компаний-разработчиков выпускают обновления для своих продуктов.Лучший получения обновлений для программного обеспечения Майкрософт — настроить компьютер так, чтобы они устанавливались автоматически. Обновления бывают трех видов: важные, рекомендуемые и необязательные. Если не установить флажок.Получать рекомендуемые обновления таким же образом, как и важные обновления, будут загружаться только важные обновления.Рекомендуемые обновления обычно следует устанавливать. Что касается необязательных обновлений, то они добавляют функции, которые могут не требоваться, например возможность изменять язык в программах Office. 

Var p, q: longint;
  n, i, j, c: integer;
begin 
  // 1
  write('n=');readln(n);
  for i := 1 to n do begin
    q := 1;
    for j := 1 to i do q := q * i;
    p := p + q;
  end;
  writeln ('Значение = ', p);
  
  // 2
  write('Число годовых оценок=');readln(n);
  p:=0;
  for i := 1 to n do begin
    write('оценка: '); readln(c);
    if c = 5 then p := p + 1
    else if c = 2 then p := - 1;
  end;
  writeln(p > 0);
  
  // 3
  n := 20; p := MaxInt;
  for i := 1 to n do begin
    write('Введите высоту здания ', i, ': ');
    readln(c);
    if c < p then p := c;
  end;
  writeln('Минимальная высота: ', p);
  
  //4
  n := 20; p := -1;
  for i := 1 to n do begin
    write('Введите высоту здания ', i, ': ');
    readln(c);
    if c > p then p := c;
  end;
  writeln('Максимальное значение высоты: ', p);
end.