Не смог решить задачку, цикл FOR TO DO не работает с типом Integers.Integer, наверное этот  тип нада пребразовать в INTEGER, я описал переменную VAR  s:Integers.Integer, хотел присвоить  s:=1; но комилятор ругается .