Ниже приведена программа var s k integer