можете . Напишите полную программу

Поскольку математических расчетов не производится, будем работать со строковым (символьным) представлением данных. Это как если бы мы взяли шесть квадратиков бумаги, написали бы на каждом цифру 1, 2, ...6, и составили бы из этих кусочков цепочку 1-2-3-4-5-6 . А потом сделали бы нужные перестановки.

var
  s:string;
begin
  Write('Введите натуральное шестизначное число: '); Readln(s);
  Writeln('Перестановка: ',s[3]+s[4]+s[1]+s[2]+s[5]+s[6])
end.

Тестовое решение:
Введите натуральное шестизначное число: 123456
Перестановка: 341256

Думаю, что такая операция возможна. Например:
//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
begin
  //цикл с параметром
  for var i := 1 to 3 do
  begin
    var a := ReadInteger('Введите число а');
    println(a);
  end;
  // цикл с предусловием
  var i := 1;
  while i < 3 do
  begin
    var a := ReadInteger('Введите число а');
    println(a);
    i := i + 1;
  end;
  // Цикл с потусловием
  i := 1;
  repeat
    var a := ReadInteger('Введите число а');
    println(a);
    i := i + 1;
  until i > 3; 
end.