ОЧЕНЬ PaskalABCNET ! нужно составить 2 программы:
а)На заводе по производству биотоплива выращивают биомассу. Ежедневно масса биомассы увеличивается на 30%. 1 сентября масса составляла 1.5 т. Выведите на экран количество биомассы на заводе за неделю. Результат работы программы может выглядеть так:
1 сентября количество биомассы составляет 1.5 т
2 сентября количество биомассы составляет 1.95 т
3 сентября количество биомассы составляет 2.535 т
4 сентября количество биомассы составляет 3.2955 т
б)Ежедневно каждый болеющий гриппом человек может заразить 3 окружающих. Выведите на экран максимальное количество заболевших в течение 5 дней. Результат работы программы может выглядеть как :
в 1 день количество заболевших составляет 1 чел.
в 2 день количество заболевших составляет 4 чел.
в 3 день количество заболевших составляет 16 чел.
...
выполнять программы с использованием цикла с параметром (for var ... to... do)

Program C2F;

Uses

    Crt;

Var i: integer;

       c,f: real;

Begin

    ClrScr; {очистить экран}

    Writeln('From Celsius to Fahrenheit:');

    Write('Type temperature (in celsius): '); read(c);

    f := 32 + 2*c * (1 - 1/10);

    Writeln('Temperature in fahrenheit: ', f:3:3);

    { :3:3 - общее количество знаков и знаков после запятой }

    Writeln(' Celsius to Fahrenheit from 0 to 100, step 5: ');

    i := 0;

    While i <= 100 Do

    Begin

        f := 32 + 2*i * (1 - 1/10);

        Writeln(' C = ',i:3,' | F = ', f:3:3);

        i := i + 5;

    End;

    Readkey; {чтоб не нажимать alt+f5 для просмотра результатов}

End.

var {ключевое слово после которого идет объявление переменных}
 a, b, c, S, P{перечисление названия переменных, которые будут использовться}: integer; {после двоеточия указ тип переменных}
begin {начало выполнения программы}
  write('a = '); {вывод на экран текста и/или переменных (в данном случае выведится "а = ")}
  readln(a);{считывание переменной а}
  write('b = ');
  readln(b);
  write('c = ');
  readln(c);
  S := a + b + c;{присваивание значение переменной S равной сумме a, b, c}
  P := a * b * c;{присваивание значение переменной P равной произведению a, b, c}
  writeln('Сумма равна ', S);{вывод на экрантеста " Сумма равна " и значения переменной S}
  writeln('Произведение равно ', P);{вывод на экрантеста " Произведение равно " и значения переменной P}
  readln;{Ожидание нажатия клавиши enter}
end.