Составить программу вычисления значения выражения z=9 разделить на 2с-1

Var c:real;BeginWriteLn('z = 9/(2c-1)');Write('c = ');ReadLn(c);if 2*c-1=0 then WriteLn('Ошибка: На ноль делить нельзя!')else WriteLn('z = ',9/(2*c-1))End.