Помогите. В Паскале ( условные алгоритмы) вычислите

Question

Помогите. В Паскале ( условные алгоритмы) вычислите

---

Answer 1

Var x:real;
begin
write('x = ');
readln(x);
if 20*x-5 <> 0
 then writeln(sqrt(2*x+1)/(20*x-5):6:4)
 else writeln('Деление на 0');
 end.

Пример:
x = 0.25
Деление на 0