program PC;
var y,a,b,c,x:integer;
    Z:real;
    label M;
  Begin
M: writeln('Introdu a,b,y,x:');
    write('a=');
    readln(a);
    write('b=');
    readln(b);
    write('x=');
    readln(x);
    write('y=');
    readln;
      If (x-(y-2))>10 then
        begin
          writeln('Rezultatele:');
          For c:=x downto y-2 do begin
          Z:=abs(a+b*2-c)+sqrt(c*a-sqr(b));
          writeln('Z=',Z);
        end;
        end
      Else
      begin
      writeln('Eroare');
      goto M;
      end;
      readln
    END.