Составить программу.
pascal.
Вывести на экран натуральные числа от c до d (c>d)

Предыдущий
вопрос Следующий
вопрос

program PrintNaturalNumbers;

var
c, d, i: Integer;

begin
// Ввод значений c и d
Write('Введите значение c: ');
ReadLn(c);
Write('Введите значение d: ');
ReadLn(d);

// Проверка условия c > d
if c <= d then
begin
WriteLn('Ошибка: c должно быть больше d');
Exit;
end;

// Вывод натуральных чисел от c до d
for i := c downto d do
begin
WriteLn(i);
end;
end.