Raiz. programação

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

Program raiz;
 Var
A, B, C:Integer;
x1, x2, y: real; 
Begin
 Writeln ('int. A, B, C'); 
 readln (A, B, C);
 Y:= SQR (B) - 4*A*C; 
 If A=0 then 
 writeln ('not 2º grau')
 Else 
 If Y<0 then 
 writeln ('imposible determini') 
 else 
 begin 
 x1:=-B+SQRT(SQR(B)-4*A*C)/2*A;
 Writeln ('x1=', x1); 
 x2:= -B-SQRT (SQR(B)-4*A*C)/2*A;
 Writeln ('x2=', x2); 
 End;
 
End.