Нда,просто изи.........................
Var d, w, p, u: integer;
begin read(d); read(w); read(p); read(u); if u <= d + w then begin write(d, ' '); write(u - w); end else if u > d + w + p then begin write(p + d,' '); write(p + d); end else begin write(u - w,' '); write(p); end;end.
А что нам делать? Где фотография?
Начало
выкопать в земле ямку
опустить в ямку саженец
засыпать ямку с саженцем землей
полить саженец водой
Конец
Начало и конец в овале, остальное в прямоугольнике.
Эта презентация Вам в помощь : http://u.to/A4wWBQ