Надо создать программу в Pascal, помогите пожалуйста, срочно!!! Вести первую букву ге

Надо создать программу в Pascal, помогите пожалуйста, срочно!!! Вести первую букву геометрической фигуры (ш, к, п). Напечатать название этой фигуры (шар, куб, призма)