Составьте модель подводной охоты в pascalabc: на расстоянии r под углом a подводный охотник видит неподвижную акулу. на сколько метров выше ее надо целиться, чтобы гарпун попал в цель?

1.

var n: integer; begin  cls;   for n: =1 to 10 do begin    write('n=',sqr(n)+5,' ');   end; end.

решить на паскале?

21 24 27 30 33 36 39 42 45 48 

как я поняла амур надо соединить с теми множествами в которые слово входит.

в множество слов, множество названий рек,множество слов на букву а входит 

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.

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