Измени в построенную модели роста и убывания и решите следующую задачу на пищевом комбинате установку по производству дрожжей заложена одна тонна дрожжевой массы при поддержания оптимальной температуры за сутки масса дрожжей возрастает на 150% 1/2 тонны массой ежедневно пускают на производство в результате неполадки температура в установке повысилась И прирост составил 160% сутки через сколько суток масса дрожжей в установке может достигнуть 4,5 т.?

Var
a,b,j,v,c:string;
q: integer;

begin
writeln('Напишите своё имя');
readln(a);
writeln('Напишите дату рождения, год целиком');
readln(q);
q:=2016-q;
write(' - Привет,',a,'. ');
if q<7 then begin writeln('Ты уже пошел в детский сад?'); readln (' - ',b);
if (b='Да') or (b='да') then writeln ('Удачи!') else writeln (' - Пойди в Детский сад, там тебя обучат азам жизни. Удачи')  end; else if (7<q) and (q<17) then begin writln (' - Ты пошёл в школу?'); readln (' - ',c); if (c='Да') or (c='да') then begin writeln (' - В какую школу ты пошёл?'); readln (' - ',v); writeln (' - В каком ты классе?'); readln (' - ',j);end;
end.

Так можно продолжать бесконечно

// PascalABC.NET 3.2, сборка 1362 от 14.12.2016
// Внимание! Если программа не работает, обновите версию!

procedure Love(n:integer);
begin
  Writeln(n*('Я люблю ПАСКАЛЬ'+NewLine))
end;

begin
  Love(ReadInteger('n='))
end.

Пример
n= 5
Я люблю ПАСКАЛЬ
Я люблю ПАСКАЛЬ
Я люблю ПАСКАЛЬ
Я люблю ПАСКАЛЬ
Я люблю ПАСКАЛЬ

// PascalABC.NET 3.2, сборка 1362 от 14.12.2016
// Внимание! Если программа не работает, обновите версию!

procedure LinEqu(a,b:real);
begin
  if a=0 then
    if b=0 then Writeln('Решений бесконечно много')
    else Writeln('решений нет')
  else Writeln('x=',-b/a)
end;

begin
  var a,b:real;
  Write('Введите а и b: '); Read(a,b);
  LinEqu(a,b)
end.

Пример
Введите а и b: 18.45 -12
x=0.650406504065041