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

Урок 13.1

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

1 2 3 4 5
1 2 3 4 5

var a, i: integer;

begin
  for i := 1 to 2 do
  begin
    for a := 1 to 5 do
      write(a, ' ');
    writeln();
  end;
end.

КОНСОЛЬ

1 2 3 4 5 
1 2 3 4 5