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

var   c: char;  begin   read(c);   case c of     'ш': write('шар');     'к': write('куб');     'п': write('призма');   end; end.