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

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

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

1 2 3 4 5
1 2 3 4 5

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