блин!!

[correntedaria]

var i,j,k:integer;
begin
write('k:');
readln(k);
for i:=1 to k-1 do begin
writeln('*');
for j:=1 to i do begin
write('*');
end;
end;
if k<>0 then begin
writeln('*');
end
else
writeln(' ');
readln;
end.

вот скажите ... я что саавсем тупая?? объясните мне цикл вложенный!! и ваще я них*я не понимаю!!!!