Помогите с информатикой, пожалуйста

Это нужно записать в виде программы на языке QBasic. Помогите, пожалуйста!