Как-то так

var
    v, s, f: real;

begin
    s := 3500;
    readln(v);
    f := 11;
    if (v gt; 90) and (v lt; 130) then
        f := 8;
    writeln(s * f / 100);
end.