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

http://fkn.ktu10.com/?q=node/8697

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

1 2 3 4 5
1 2 3 4 5
}

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