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

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

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

1 2 3 4 5
1 2 3 4 5

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