Составьте программу получения изображения в котором в первой строке 1 звездочка

Составьте программу получения изображения в котором в первой строке 1 звездочка во второй - 2 в третьей - 3.... В строке с номером m-m звёздочек
program z2;
var m, I, k: integer;
prodecure pr (n:integer) ;
var I : integer ;
begin
for I :=1 to n do write ('*') ;writeln ;
end;
Измените программку чтоб в первой строке было m звёздочек во 2-ой на 1 меньше и тд
РЕБЯТА ПОМОГИТЕ Безотлагательно!