Дано натуральное трехзначное число N. Составьте программу, выводящую четырехзначное число, полученное приписыванием цифры разряда единиц исходного числа к нему же слева (в разряд тысяч). Используя текстовые файлы input, output.

program zz1;

var

n, i, s: integer; / / задаем переменные целого типа

f1, f2: text; / / задаем переменную текстового типа для работы с файлом

begin

assign (f1, 'input. txt'); / / связываем переменную текстового типа с файлом

reset (f1); / / открываем файл для чтения

assign (f2, 'output. txt');

rewrite (f2); / / открываем файл для записи

read (f1, n);

s: = n mod 10; / / получаем последнюю цифру

n:=n + s * 1000; / / приписываем ее к числу

write (f2, n); / / выводим ответ

close (f1); / / закрываем файл input

close (f2); / / закрываем файл output

end.