var
hh,h: integer;
procedure pt(h,max: integer);
var
s: string[80];
i: integer;
begin
fillchar(s, 2+hh, ' '); s[0]:=#80;
WriteLn(Copy(s, 1, 1+hh), '*');
for i:=1 to h-1 do
begin
fillchar(s, 2+hh-i, ' '); {s[0]:=#80;}
Write(Copy(s, 1, 1+hh-i), '*');
fillchar(s, 2+(i-1)*2, '-'); {s[0]:=#80;}
WriteLn(Copy(s, 1, 1+(i-1)*2), '*');
end;
fillchar(s, hh-h+2, ' '); s[0]:=#80;
Write(Copy(s, 1, hh-h+1));
fillchar(s, 2+2*h, '*'); s[0]:=#80;
WriteLn(Copy(s, 1, 1+2*h));
end;
begin
while hh<1 do
begin
Write('Input H = ');
Readln(hh);
end;
for h:=1 to hh do begin
pt(h,hh);
end;
end.
|
