Question

Программу на тубропаскаль

Answer 1

Как-то так

var
    v, s, f: real;

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