Disp "X1?"
Prompt X
Disp "Y1?"
Prompt Y
Disp "X2 ?"
Prompt S
Disp "Y2?"
Prompt T
abs((X*S)+(Y*T))/VKW(X²=Y&)*VKW(S²+T²))>STO U
Disp U
cosmineen(U)>STO U
Disp U>DMS