Напишите программу, которая циклически сдвигает массив на 1 позицию влево на языке паскаль​

program z1;

var n,k:integer;

begin

k:=0;

write ('Введите натуральное число (n>9): ');

readln (n);

write ('Цифры натурального числа ',n);

while n>=10 do

begin

if n mod 10 < n div 10 mod 10 then k:=1;

n:=n div 10

end;

if k=1 then write (' НЕ расположены в порядке возрастания')

else write (' расположены в порядке возрастания')

end.

Объяснение:

Вводим число

Цикл с предусловием (условие число больше или равно 10)

Сравнение последней и предпоследней цифр числа, если последняя меньше, то k присваивается значение 1

n присваивается значение целочисленного деления на 10 (отбрасываем последнюю цифру числа)

Если k = 1, то цифры не расположены в порядке возрастания, иначе расположены

#include <iostream>

using namespace std;

int main()

{

   int first, second;

   cin >> first >> second;

   if (first < second)

   {

       cout << 1;

   }

   else

   {

       cout << 2;

   }

}

Объяснение:

#include <iostream>  // Библиотека ввода - вывода

using namespace std;  // Пространство имен

int main()

{

   int first, second;  // Создание целочисленных переменных для хранения двух чисел соответственно

   cin >> first >> second;  // Ввод двух целых чисел с клавиатуры

   if (first < second)  // Если первое число < второго числа

   {

       cout << 1;  // Выводим единицу

   }

   else  // Иначе

   {

       cout << 2;  // Выводим двойку

   }

}