Решение квадратного уравнения. Из интернета.
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 .