решить
http://www. lbz. ru/metodist/authors/informatika/3/f lash/9kl/gl4/1.php

http://prntscr. com/s404og

смотри схему                                                  

отношения между объектами - диаграммы эйлера-венна

объект-фотографии

стоимость объекта   -числа

р. об.- эскиз

ф. р. об. - чертежа

эл. с. об.  -схемы

  цв. об.-рисунка

обьем вини изначальный

прирост от меда

прирост от сгущенки

время реализации прироста

время худенья

радиус дверей

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

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.