Программирование язык паскаль вывести квадрат, состоящий из nxn ячеек, заполненный числами от 1 до n "дорожками" с клавиатуры задается число n не превышающее 20. пример: 123 231 312

var n,i,j:integer;
begin
readln(n);
for i:=1 to n do
 begin
  for j:=i to n do write(j);
  for j:=1 to i-1 do write(j);
  writeln;
 end;
end.

Пример:
5
12345
23451
34512
45123
51234