Васин младший брат Дима проходит деление и умножение. Он быстро сделал домашнюю работу, заскучал и пришёл к Васе, когда тот играл на компьютере. Чтобы Дима не мешал играть, Вася придумал для него хитрую задачу. Он написал три числа и велел Диме посчитать произведение второго и третьего, если первое делится и на второе, и на третье.
Выведи произведение второго и третьего числа, если первое делится и на второе, и на третье. Если не делится, не выводи ничего.

Ввод Вывод
12
2
4 8
14
7
4

Простая

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.

Хм.. Я недавно искала тоже. Нашла в учебнике.
Первые Олимпийские игры состоялись в 776 году до н.э. в небольшом городе расположенном на юге Греции. 
Я полностью писать не буду но если нужно подробно то скажи.
Вот зимние. Извини ошиблась
Первые Зимние олимпийские игры состоялись в 1924. Поначалу зимние и летние Игры проходили в один и тот же год, но начиная с 1994, они проводятся  интервалом в два года. К настоящему моменту значительно расширилась программа Зимних олимпийских игр, выросло число участников, среди которых немало спортсменов из южных стран.