program pl;
    uses crt;
    var f: real;
    a, b, h:integer;
    crl: scr;
    begin
    write ('a=');
    read (a);
    write ('b=');
    read (b);
    write ('h=');
    read (h);
    x:=B;
    while (x<=a) do
    begin
    if x<11 then f:=5*x-4
    else
    f:=2+x;
    writeln ('f=',f);
    x:=x+h;
    end;
    end.