Решение задачи 8 из главы 13.1

Решение задачи 8 из главы 13.1

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

1 2 3 4 5
1 2 3 4 5

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