Надо создать программу в Pascal, помогите пожалуйста, срочно!!! Вести первую букву геометрической фигуры (ш, к, п). Напечатать название этой фигуры (шар, куб, призма)
Var c: char; begin read(c); case c of 'ш': write('шар'); 'к': write('куб'); 'п': write('призма'); end; end.