Запись в СУБД – это … .

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

Простая

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, они проводятся  интервалом в два года. К настоящему моменту значительно расширилась программа Зимних олимпийских игр, выросло число участников, среди которых немало спортсменов из южных стран.