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