Задание 8 Урок 13.1

Задание 8 Урок 13.1

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

1 2 3 4 5
1 2 3 4 5

var i,i1 : integer;

begin
  i := 1;
  i1 := 1;
  for i :=1 to 2 do
    begin
      repeat
        write(i1, ' ');
        i1 :=i1+1;
      until (i1 > 5);
        i1 :=1;
    	writeln();
    end;
  readln();
end.