(while:prn:round:/(+(= a(read)b(read))(/(* a a)b))2)