Var k: integer; s,j: string;
begin
write (Введите число: ); read (s);
k:=length(s);
str(s,j);
writeln (Результат: ,j[k],copy(s,2,k-2),j[1]);
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.