Во сколько раз килобайт больше байта, мегабайта больше килобайта, гигабайтбольше мегабайта, терабайт больше гигабайта?​

ответ:1. В 1024

2. В 1024

3. В 1024

4. В 1024

Объяснение:

Думаю, что такая операция возможна. Например:
//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.

Поскольку математических расчетов не производится, будем работать со строковым (символьным) представлением данных. Это как если бы мы взяли шесть квадратиков бумаги, написали бы на каждом цифру 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