Урок 13.1 Задание 8

Задание 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);  
end.

Консоль:

1 2 3 4 5 
1 2 3 4 5