Помогите пожалуйста! Не знаю в чем ошибка, и так и сяк исправлял не получается (

var t,s1,s:real; begin readln(s); if (s>=5000) and (s<=10000) then begin s1:=s*3/100; t:=s-s1; writeln(t); end else if s>10000 then begin s1:=s*8/100; t:=s-s1; writeln(t); end else writeln('dsdsds'); end.