Question

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

Answer 1

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