Еще простая задача, дано число n это начало диапазона, конец посчитать по формуле 2*n, вывести все пары чисел из этого диапазона. Пары чисел, это числа 1 -3, 2 - 4, 3 - 5, т.е. через одно.
program chis;
var
n : real;
i : real;
begin
writeln('введите n.');
readln(n);
if n >= 2 then
begin
i := n;
writeln('Пары чисел из диапазона ', n:5:0, ' до ', (2*n):5:0);
repeat
writeln(i:5:0, ' ', (i + 2):5:0);
i := i + 1;
until i+2 > 2*n;
end
else writeln('Заданное число не удовлетворяет заданию.');
readln;
end.