Задача 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.