18 : дано четырехзначное число.найти разность сумм цифр, стоящих на четных и нечетных местах. в кумире

Замечание: цифры нумеруются слева направо.
алг Число
нач
  цел n, n1, n2, n3, n4, r
  вывод "Введите целое число", нс
  ввод n
  n1:= div(n,1000)
  n2:= mod(div(n,100),10)
  n3:= div(mod(n,100),10)
  n4:= mod(n,10)
  r:= (n2+n4)-(n1+n3)
  вывод r
кон