ПАСКАЛЬ Вводится натуральное четырёхзначное число. Необходимо приписать к нему слева число, порядок цифр которого обратен порядку цифр исходного числа. Например, из числа `2021` должно получиться число `12022021`. Результат нужно сохранить в отдельную переменную.
Завтра урок нужно

program z1;

var a,b:integer;

begin

write('Введите четырёхзначное число: ');

readln(a);

b := a mod 10 * 10000000 + a mod 100 div 10 * 1000000 + a div 100 mod 10 * 100000 + a div 1000 * 10000 + a;

write('Получилось: ',b)

end.

Объяснение:

a div 1000 - первая цифра четырёхзначного числа

a div 100 mod 10 - вторая цифра четырёхзначного числа

a mod 100 div 10 - третья цифра четырёхзначного числа

a mod 10 - четвёртая (последняя) цифра четырёхзначного числа

Умножение переводит цифру в нужный разряд