Нужно решить задание с роботом

автоматизация, легкость в использовании, меньше затраты времени на обработку

февраль зимний месяц

май весенний месяц

август летний месяц 

сентябрь осенний месяц

на первом х галок, на втором у галок, тогда:

1)х+2=у, 2)х+22=3у

х+2=у

х=у-2

подстовляем во 2 уровнение значение х:

у-2+22=3у

2у=20

у=10

подставляем в 1 уравнение значение х:

х+2=10

х=10-2

х=8

ответ: на первом дереве-8 галок, на втором дереве-10 галок.

блок смемы не умею

var i: integer

s,n: real;

begin

  repeat

      read(n);

      if n> 0 then s: =s+n

  until n=0;

  writeln(s);

end.

var a,s: real;

i: integer;

begin

  read(a);

  repeat

      i: =i+1;

      s: =s+1/i

  until s> a;

  writeln(i,s);

end.