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

Вложенные циклы

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

var a,b: integer;
begin
  a:=0; b:=1;
  repeat
    while (a<5) do
      begin
        a:=a+1;
        write(a, ' ');
      end;
    if (a=5) then
      begin
       writeln();
       a:=a+1;
      end;
    write(b, ' ');
    b:=b+1;
  until (b>5) ;
  readln();
end.