BlackSun, а если не изменять var a1,b1,c1,d1 :real;? Ну тоесть прописать как и в Integer a,b,c,d а не a1,b1,c1,d1, что тогда?