Проблемы с вложенными циклами Опции

[SmallTalk]

Помогите разобраться со вложенными циклами
пусть вводится число n допустим равное 4
вывести
1234
2345
3456
4567

[Lapp]

Типа так:

  for j:=1 to n do begin
    for i:=j to j+n-1 do Write(i);
    WriteLn
  end;