Определите, какие величины являются результатом работы подпрограммы в следующем заголовке: procedure kvadr(a,b,c:real; var x1,x2:real; var y:string);