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

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

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

1 2 3 4 5
1 2 3 4 5

program zadacha8;
var i, j: integer;
begin
  i:=1;
  while i < 3 do
    begin
      j:=1;
      while j <= 5 do
        begin
          write(j,' ');
          j:=j+1;
        end;
      writeln();
      i:=i+1;
    end;
  readln();
end.