5 PRINT
10 PRINT "ENTER P,Q,R,S,T"
15 INPUT P,Q,R,S,T 
20 A=P^2-R  
25 D=2*P*Q-S 
30 PRINT "P1=";P/A  
35 PRINT "Q1=";-D/2/A 
40 PRINT "R1=";(P/A)^2-1/A 
45 PRINT "S1=";-D*P/(A^2)+2*Q/A
50 PRINT "T1=";(D/2/A)^2-(Q^2-T)/A 
55 PRINT 
60 PRINT "MORE INPUT? (1=YES,0=NO)" 
65 INPUT P 
70 IF P=1 THEN 5 
75 END 

