Program Segitiga

uses wincrt;
var
m,y,my: integer;
begin
m:=5;
for y:=m downto 1 do
begin
for my:=1 to m do
write('*');
writeln;
m:=m-1;
end;
end.