10°•. Ніф-Ніф для своєї хатинки спочатку зро- бив каркас у формі прямокутного паралеле- піпеда і дах у формі піраміди з гілок завдов- жки 2 м, а потім із соломи сплів стіни та дах. Скільки метрів гілок довелося Ніф- Ніфу використати для побудови солом'яної хатинки ОЧЕНЬ

Прямая 
1кг сахара стоит 50руб.
Сколько стоит 5 кг сахара?
50*5=250руб.

Скорость авто 80 км/ч.
Какое расстояние авто проедет за 2часа?
80*2=160км

Обратная
Слесарь делает 10 деталей в час.
Если он увеличит свою производительность в 2 раза, то за какое время он сделает 10 деталей?
10/(10*2)=10/20=1/2=0,5часа

Кран заполняет бассейн за 5 часов.
За сколько заполнится бассейн, если включить два таких крана
1-объем бассейна
1/5- производительность одного крана
1/5+1/5=2/5-производительность двух кранов
1:2/5=1*5/2=2,5ч

Ну и сюда скину. Вдруг не заметишь)
Эта автоматически тебе всё сделает.
Var i, n, max : Integer;
     a : array [1..30] of Integer;
 begin
    for i := 1 to 30 do
 begin
      Write('a[', i, ']='); 
      a[i]:=i+1;
      if max<a[i] then max:=a[i];
      writeln(a[i]);
end;
  writeln('Максимальный элемент равен: ',max);
end.

Если нужно будет ввести последовательность с клавиатуры, то вот:
Var i, n, max : Integer;
     a : array [1..30] of Integer;
 begin
    for i := 1 to 30 do
 begin
      Write('a[', i, ']='); 
      ReadLn (a[i]);
      if max<a[i] then max:=a[i];
end;
  writeln('Максимальный элемент равен: ',max);
end.