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

Вы пытаетесь присвоить значение вещественного типа к переменной целого типа. Исходя из ошибки компилятора, в паскале это запрещено.

Изменяйте тип k на real или используйте приведение типов(насчет этого не уверен, исправит ли это ошибку)