Question

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

Answer 1

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