Пользуя схему состава. В салоне небольшого самолета летят 42 пассажира. Некоторые из нихбишкекчане, остальные иногородние. Среди бишкекчан — 9 мужчин. Некото-рые из пассажиров - артисты, но ни одна из иногородних женщин не являет-ся артисткой. Всего иногородних мужчин 18. Из них 13 — не артисты. Средипассажиров, не являющихся артистами, 16 мужчин и 11 женщин. 6 бишкекчан— не артисты.Пассажиры, 42 чел.БишкекчанеИногородниеМужчиныЖенщиныАртистыНе артисты11​

Простая

Program p;
var ch:real;   
         i:integer;
begin 
ch:=65000; 
For i:= 1993 to 2013 do
      begin   
         ch:=trunc(ch*1.03);   
         Writeln('Численность населения в году №',i+1,' равна ',ch);   
       end;
end.

Для любых данных

Program p;
var year,y1:integer;  
      ch:real;   
      i:integer;
begin
    Write('Введите начальный год: '); 
    Readln(year); 
    Write('Введите конечный год: '); 
    Readln(y1); 
    Write('Введите число населения: ');
    Readln(ch); 
    For i:= year to y1-1 do   
      begin   
          ch:=trunc(ch*1.03); 
          Writeln('Численность населения в году №',i+1,' равна ',ch); 
     end;
end.

Program p1;
const n=10;
var a:array [1..n] of real;
    i:byte; 
   max:real; 
   nmax:byte;
begin
 //начало цикла ввода 
For i:=1 to n do 
//ввод    
Readln(a[i]) 
//берём за максимальный 1ый элемент
 max:=a[1]; 
 //берём количество = 1
 nmax:=1; /
/начало цикла проверки 
For i:= 2 to n do 
 if a[i]> max then    
    begin       
       max:=a[i]; 
       nmax:=1;     
   end else
                if a[i]= max then       
                         nmax:=nmax+1; 
//вывод 
Writeln('Максимальный элемент = ', max,', количество таких элементов = ',nmax);  end.