Помогите решить по Pascal !

Вот задачка, нужно через процедуру решить её , плиз помогите а то нужно курсак здать уже !