написание программ

[ematary]

Ребята нужна помощь в написание программ на Turbo Pascal вот:
1) Написать программу, принимаемую последовательность положительных чисел и вычисляющую для нее среднее гармоническое
.

2) Написать программу, которая для выбираемой единицы измерения (градусы Фаренгейта или градусы Цельсия) и для задаваемого значения температуры в этой единице измерения, выводит значение температуры в другой единице измерения. Если С - температура в градусах Цельсия, a F - в градусах Фаренгейта, то имеет место соотношение:

[BDA]

2)

var
  c: char;
  a: real;
begin
  read(c, a);
  if c = 'C' then
    writeln('F', (a * 180 / 100 + 32):0:0)
  else
    writeln('C', ((a - 32) * 100 / 180):0:0);
  readln;
end.

Вводить градусы в виде C10 или F50.
Они обе легкие
1) Цикл, в котором считываются числа и суммируются. Да и всё.