program hinhve; var i,j,h:integer; begin write('nhap vao h'); readln(h); write(' ':h*2-3);for j:=1 to 2*h do write('*');writeln; writeln(' '); write('*':1,'*':h,'*','*':h,'*','*':2*h);for j:=1to h do write('*');readln; for i:=2 to h- 1 do begin write('*','*':h,'*','*':h,'*','*':i,'*':2*h- i,'*');readln ; end; begin for j:=1 to h+1 do write('*');write('*','*':h,'*','*':h,'*':h,'*',' ':h-5); for j:=1 to h do write('*'); readln; for i := h to 2*h-3 do writeln('*','*':h,'*','*':h,'*','*':i+1,'*':2*h- (i+1),'*','*':h); write('*','*':h);for j:= 1 to h+1 do write('*'); write('*','*':2*h,'*');for j:=1 to h do write('*'); readln; end ; end. ################################################### #33### program giaipt; var a,b,c,da,x1,x2: real; begin write('nhap vao a,b,c');readln(a,b,c); da := sqr(b)-4*a*c ; {begin } if (da=0) then begin writeln('pt co nghiem kep x1,x2=',-b/2*a :4:2) ; end; if( da>0 )then begin writeln('pt co nghiem x1=',-b-sqrt(da)/2*a:4:2); writeln('pt co nghiem x2=',-b+sqrt(da)/2*a:4:2); end; if(da<0) then write('pt vo nghiem'); readln; {end;} end. . ################################################### #33### program giaipt; var a,b,c,da,x1,x2: real; begin write('nhap vao a,b,c');readln(a,b,c); da := sqr(b)-4*a*c. writeln(&apos ;pt co nghiem kep x1,x2=',-b/2*a :4:2) ; end; if( da>0 )then begin writeln(&apos ;pt co nghiem x1=',-b-sqrt(da)/2*a:4:2); writeln('pt