Задачка от админа: исправьте программу...

Если бы команды программ на Паскале были русскоязычными, то ваша программа могла бы выглядеть так, как код, приведенный ниже. Но, приблизительно так видит код программы на Паскале англоязычный программист. Кстати, программа вполне рабочая.

А теперь само задание:

Задачка. Какую задачу решает программа? Найдите строки в коде, которые можно убрать из программы так как они явно лишние.

Другими словами - найдите ошибки в программе. Первому, кто правильно решит - плюсик в репутацию (для зарегистрированных на сайте.)

вар а, икс: целый;
   я, у: целый;
начать
   написать ('введите число');
   прочитать (а); икс присвоить а;
   я присвоить ноль;
 у присвоить ноль;
   в то время как (икс не равно ноль 0) делать
   начать
     у присвоить у плюс (икс мод десять);
     икс присвоить икс див десять;
 я присвоить я плюс один;
   конец;
  написать ('ответ', '=', у);
конец.

---

---