последнюю задачку помогите проверить

[joi_lacosta]

вот последняя задачка....решить её то я решил,а паскаль либо тупит либо у меня в чём то ошибка....
УСЛОВИЕ:
Дано натуральное трехзначное число N. Составьте программу, выводящую четырехзначное число, полученное приписыванием цифры разряда единиц исходного числа к нему же слева (в разряд тысяч).
Формат входных данных
Входной файл содержит целое трехзначное число 101 \le N \le 999. Гарантируется, что число не имеет концевых нулей.
Формат выходных данных
Выходной файл должен содержать единственное число - ответ на задачу.

РЕШЕНИЕ:

var n,a,b,c,d,m:integer;
w,h:text;
begin
assign(w,'input.txt');
assign(h,'output.txt');
reset(w);
rewrite(h);
readln(w, n);
a:=n mod 10;
b:=n div 100;
c:=(n mod 100) div 10;
d:=a;
m:=a*1000+b*100+c*10+d;
writeln(h,m);
close(w);
close(h);
end.

[BDA]

Зачем так сложно?

readln(w, n);
writeln(h, 1000 * (n mod 10) + n);

[joi_lacosta]

Сообщение от BDA

Зачем так сложно?

readln(w, n);
writeln(h, 1000 * (n mod 10) + n);

Да кстати так прикольней)спасибо)))поможешь с ещё одной задачкой?

[BDA]

Сообщение от joi_lacosta

поможешь с ещё одной задачкой?

Ну Вы пишите условие и решение. Если надо, поправим.

[joi_lacosta]

Сообщение от BDA

Ну Вы пишите условие и решение. Если надо, поправим.

вот ещё задача))проверьте
УСЛОВИЕ:

Дано натуральное трехзначное число N. Определить число, полученное перестановкой разрядов десятков и сотен исходного числа.
Формат входных данных
Входной файл содержит целое трехзначное число 100 <= N <= 999. Гарантируется, что в разряде десятков данного числа не нуль.
Формат выходных данных
Выходной файл должен содержать единственное число - ответ на задачу.

ПоПРОБОВАЛ РЕШИТЬ:

var n,m,a,b,c:integer;
w,h:text;
begin
assign(w,'input.txt');
assign(h,'outuput.txt');
reset(w);
rewrite(h);
readln(w, n);
a:=(n mod 100) div 10;
b:=n div 100;
c:=n mod 10;
m:=a*100+b*10+c;
writeln(h, m);
close(w);
close(h);
end.

ЕСЛИ ЕСТЬ ОШИБКА СКАЖИТЕ?

[BDA]

По-моему, все хорошо, только можно написать a := n mod 100 div 10; (скобки не нужны, т.к. div и mod имеют одинаковый приоритет и выполнятся слева-направо). Быстрее проверить программу, просто запустив скомпилированый файл и посмотрев, что оказалось в output.txt.