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

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

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

1 2 3 4 5
1 2 3 4 5

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