составьте программу которая имитирует движение воздушного шара снизу вверх

program xxx;   var a,b, c : integer; begin

  writeln('введите 3 числа-');

  read(a,b,c);   if a> =0 then a: = sqr(a);

  if b> =0 then b: = sqr(b);

  if c> =0 then c: = sqr(c);

  writeln('ответ: ');

  write(a, b, c);

  readlnend.

сочинение о мини ноутбуках,                                                   : однажди родители подарили мне нетбук я так радовался(лас,) я кажды день сидел за ним и он мне ноавился. но однажды я пролил на него воду я думал всё   больше не будет у меня нетбука ,я растроился. мама сказала какой ты не уклюжий и так далее 

у васи флешка желтая. и больше флешки пети. значит, у пети или 4гб или 8гб.

егору не понравилась красная, значит красная у пети, а у егора зеленая.

суммарное колличество флешок васи и пети меньше, чем у егора,значит у егора флешка на 16гб, зеленая. у васи 8гб,желтая. и у пети 4гб, красная.

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

begin

  randomize; {чтоб рандом был разный для каждого запуска програмы}

  for i: = 1 to 100 do

      if i mod 2 =0 then a[i] : = 2*random(100)+1; {формула нечетного числа}

      else a[i]: =2*random(100);

end.

есличто непонятно - пиши в сообщения, растолкую