Цитата
if (3*a-b=0) or (b=0) then writeln('raschet nevozmozhen!',' pri a=',a:6:4)



может в этой строчке?