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

Question

задано двузначное число поменять в нем еденицы и десятки и разделить полученное число на исходное

Олеся · Accepted Answer

var 
 n, r: integer; 
begin 
 write('двузначное число? '); 
 readln(n); 
 if (n < 10) or (n > 99) then begin 
 writeln('ошибка ввода'); 
 exit; 
 end; 
 r := n div 10 + n mod 10 * 10; 
 writeln('поменяли: ', r); 
 writeln('разделили: ', r / n:0:3); 
end.

Ильина Ксения · Answer

эм где задача?