Паскаль исправьте код программы - вопрос №288256

var 
Xnach, 
Xkon, 
Dx, 
a,b,c, 
F :real; 
begin 
write('vvedite Xnach = '); readln(Xnach); 
write('vvedite Xkоn = '); readln(Xkon); 
write('vvedite dx = '); readln(dx); 
write('vvedite a = '); readln(a); 
write('vvedite b = '); readln(b); 
write('vvedite c = '); readln©; 
while Xnach <= Xkоn do 
begin 
if (Xnach < 5) and (c <> 0) then F:= -a*Xnach*Xnach + b 
else 
if (Xnach > 5) and (c = 0) and (Xnach <> 0) then F:= (Xnach — a)/Xnach 
else F:= -Xnach/ c; 
writeln('Xi = ', Xnach:2:2, ' F = ', F:2:2 ); 
Xnach := Xnach + dx; 
end; 
readln; 
end. 

при с=0 условие не будет выполнятся, как тогда… желательно исправленный код полностью)

Правда я по ошибке задачу взял не со своего варианта, Но все равно сапасибо Вам Валентина)