Vẽ chữ HÙNG bằng pascal

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.