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

Question

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

---

---

Answer 1

Var
t,s1,s:real;
begin
readln(s);
if (s>=5000) and (s<=10000) then<br>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.