Решение квадратного уравнения. Из интернета. PROGRAM S; VAR Y1,Y2: REAL ; PROCEDURE SQ (A,B,C : REAL ; VAR X1,X2 : REAL ); VAR D: REAL ; BEGIN D:=B*B-4*A*C; X1:= (-B+ SQRT (D))/(2*A); X2:= (-B- SQRT (D))/(2*A); END ; BEGIN (*PROGRAM*) SQ(1,2,-3,Y1,Y2); WRITELN('Y1=',Y1,'Y2=',Y2); END .
