Составьте программу, которая выводит последовательность чисел 1 2 3 4 5 и 5 4 3 2 1, используя циклwhile. и такую же программу используя цикл repeat. pascal

Var
  i: integer;
begin
i := 1;
while i <= 5 do begin
writeln (i);
i := i + 1
end;
while i >= 1 do begin
writeln (i);
i := i - 1
end;
end.

// PascalABC.NET

// Цикл While
begin
   var i := 1;
   
   while i < 6 do 
   begin
      write(i, ' ');
      inc(i);
   end;
   
   writeln;
   dec(i);
   
   while i > 0 do
   begin
      write(i, ' ');
      dec(i)
   end
end.

// Цикл Repeat
begin
   var i := 1;
   
   repeat
      write(i, ' ');
      inc(i);
   until i>5;
   
   writeln;
   dec(i);
   
   repeat
      write(i, ' ');
      dec(i)
   until i<1
end.