Составьте программку, которая выводит последовательность чисел 1 2 3 4 5 и 5 4

// PascalABC.NET

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

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

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