haromszog2

program haromszog2;
uses crt;
var a,b,c,d:integer;

begin
clrscr;
writeln ('A haromszog merete:');
readln(b);
for d:=1 to b do
    begin
    for c:=1 to b-d do write (' ');
    for c:=1 to d do write (' *');
    writeln;
    end;
    for a:=1 to c do
    begin
    for b:=1 to d do
    write (' *');
    writeln;
    end;
readln;
end.