составить программу записывающее четырехзначное число наоборот

program mirror;var n, k, s: integer;

beginwriteln(\'Введите целое число:\');readln(n); //Ввод числаs:= 0; //начальное значение остатка при делении

while n > 0 dobegink:= n mod 10; //нахождение последней цифрыs:=s * 10 + k; //добавление найденной цифры в конец числаn:= n div 10 // отсекается последняя цифра от исходного числаend;writeln(s);

end.