Нарисуйте звёздочками лесенку указанного размера, как показано в примерах.

Входные данные
Первая строка содержит целое число N (1 <= N <= 100).

Выходные данные
Выведите N строк: первая строка содержит одну звёздочку, вторая – две звёздочки, ..., последняя — N звёздочек.

var i, n, j: integer;beginwrite('Введите n ');readln(n);if (n>=1) and (n<=100) thenfor i:=1 to n dobeginfor j:=1 to i dowrite('*');writeln;end;end.