На цикл for:

Богатая тётушка из ЮАР каждый год, начиная с рождения, дарит племяннику на именины 1 алмаз. Исключение составляют круглые даты (кратные 10), а также 17 и 25 лет, когда подарки другие. Сколько алмазов накопилось, когда племяннику исполнилось N лет? Число N вводится пользователем. Остальное всё задано.

program xxx;

  var i, n : integer;

begin

  write ('введите число n-');

  readln (n);

  writeln('делители числа: ');

  for i : =1 to n do

    if n mod i = 0 then writeln (i)

end.

8, 1, 4, 1, 5, 9, 6, 7, 2

800 * 10 = 8000 символов било передано

5000 байт = 5000 * 8 = 40000 бит было передано

40000 : 8000 = 5 бит приходится на кодирование 1 символа

n = 2 ^ i

n = 2^5 = 32 символа размер алфавита.

program p_1

var

a: string

begin

writeln ('vvedite nazvanie rek');

read (a);

if (a='волга,днепро,нёман,енисей')then

writeln ('в беларуси протекают только днепро,нёман');

end.