Задача 8 Урок 13.1

Задача 8 Урок 13.1:

Выведете на экран числа от 1 до 5 два раза с помощью вложенных циклов. Так чтобы в консоли было:
1 2 3 4 5
1 2 3 4 5

var i, j: integer;
begin
  i := 1; 
  repeat 
    j := 1; 
    while (j<=5) do 
      begin
        write(j, ' ');
        j:=j+1; 
      end;
    writeln(); 
    i:=i+1; 
  until (i > 2);  
  readln();
end.

Вывод консоли:

1 2 3 4 5
1 2 3 4 5