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

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