... ;end.####################################################33###program giaipt;var a,b,c,da,x1,x2: real;beginwrite('nhap vao a,b,c');readln(a,b,c);da := sqr(b)-4*a*c ;{begin } if (da=0) ... program hinhve;var i,j,h:integer;beginwrite('nhap vao h');readln(h);write(' ':h*2-3);for j:=1 to 2*h do write('*');writeln;writeln('...