Создать приложение выводящее на экран первые 15 четных чисел

ну, в первом тексте информационный объем одного символа составляет

n=2^i

32=2^5

i=5 бит

во втором текте

64=2^6

i=6

значит, в 1,2 раза (6: 5=1,2)

б,в,г,е - лцд  остальное к трубке

program fraza;

var x,y: string;

begin

writeln('введите название животного: ');

readln(x);

writeln('введите число');

readln(y);

writeln(x, " съест ", y, ' грибов.');

end.

var a: array [1..10] of integer;

s,i,c,b: integer;

begin

  read(c,b,n);

  randomize;

  for i : = 1 to n do

        a[i]: = random(b) -c+1;

  for i: = 1 to n do

        if i mod 2 = 0 then s: =s+1;

  writeln(s);

end.