Брошены две игральные кости. какова вероятность того, что на обеих костях не выпало: 1) по 3 очка; 2) два одинаковых числа очков?

Решим от обратного

1)Вероятность того, что выпадет по 3 очка =1/6 х 1/6=1/36

Вероятность того что Не выпадет по 3 очка =1-(1/36)=35/36=0.972

2) вероятность того что выпадет 2 одинаковых числа =1/6 х 1/6 =1/36

вероятность того что НЕ выпадет 2 одинаковых числа = 1-(1/36)=35/46=0.972

Простая

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.

Растровая графика - это в основном фотографии, где единицей измерения - являются точки (пикселы). Работа чаще всего в растровой графикой (из популярных програм) производится в Adobe Photoshop, Illustrator... Если рассматривать фотографию как таковую, то можно увидеть, что она состоит из множества растров (точек, пикселей).
Векторная графика - это в основном рисунки, где кривые или прямые линии представляют собой совокупность векторов, направление и величина которых и задают кривую (прямую) линию. Работа с векторной графикой (из популярных программ) производится чаще всего в CorelDraw.