Program pola;

Uses CRT;

Var i,j,x,y : integer;

Begin

Clrscr

X:=10;

Y:=1;

For i = 1 to 5 do

Begin

X:=X-1;

Y:=Y;

Goto xy (x,y);

Write (‘*’);

End;

X:=9;

Y:=1;

For i= 1 to 5 do

Begin

For j= 1 to I do

X:=x+1;

Y:=y;

Goto xy (x,y);

Write (‘*’);

End;

X:=10;

Y:=1;

For I = 1 to 5 do

begin

For j = I down to 1 do

Begin

X:=x-1;

Y:=y;

Goto xy (x,y)

Write (‘*’);

End;

X := 9;

Y := 1;

For I = 1 to 5 do

Begin

For j = I down to 1 do

Begin

X:=x+1;

Y:=y;

Goto xy (x.y);

Write (‘*”);

End;

X:=10;

Y:=y+1;

End;

Readln;

End.