Есе на тему гімн великому коханню за твором ромео і джульєтта

Уменьшаемое - вычитаемое = разность
При уменьшении уменьшаемого разность уменьшается на то же число. При уменьшении вычитаемого разность увеличивается на то же число. При увеличении соответственно наоборот.
Если уменьшаемое уменьшили на 435, разность тоже уменьшилась на 435. 
а) Чтобы разность осталась без изменений (а она у нас уже уменьшилась на 435), нужно увеличить ее на 435, то есть уменьшить вычитаемое тоже на 435.
б) Чтобы разность увеличилась на 107, нужно уменьшить вычитаемое на 435+107=542 (сначала на 435, чтобы разность стала прежней, потом еще на 107, чтобы стала на 107 больше).
в) Чтобы разность уменьшилась на 581, нужно увеличить вычитаемое на 581-435=146 (на 435 она уже и так уменьшилась, нужно уменьшить еще на 146).

var

  a,b,c,x,y:real;

begin

  Write('Введите a и b: '); Read(a,b);

  repeat

    Write('Введите c, не равное нулю: ');

    Read(c)

  until c<>0;

  x:=2*sqr(a)-b/(3*c);

  {

  Если Вы относитесь к людям, ненавидящим скобки

  и тех, кто решает Ваши задания, то в Вашем условии

  на 3а делится все выражение, и тогда предыдущая строка

  должна иметь вид x:=(2*sqr(a)-b)/(3*a);

  }

  if x>=0 then

  begin y:=sqrt(x+sqr(c))+4*a*b; Writeln('x=',x,', y=',y) end

  else

    Writeln('x=',x,', y вычислить нельзя, под корнем отрицательное значение')

end.

Тестовое решение:

Введите a и b: 3.4 -2.18

Введите c, не равное нулю: 0

Введите c, не равное нулю: 5.172

x=23.2605001288992, y=-22.5762191684909