Даны 5 тел: №1 – конус, №2 – шар, №3 – куб, №4 – тетраэдр, №5 – усечённый конус. По номеру n вывести название тела.

[yuliya.al18]

Даны 5 тел: №1 – конус, №2 – шар, №3 – куб, №4 – тетраэдр, №5 – усечённый конус. По номеру n вывести название тела.
В паскале нужно)
Заранее спасибо!

[Serge_Bliznykov]

const
  Figures : array[1..5] of string =
  ('конус', 'шар', 'куб', 'тетраэдр', 'усечённый конус');
var
  n: integer;
begin
  repeat
    WriteLn('Введите n (от 1 до 5): ');
    ReadLn(n)
  until (n>0) and (n<6);
  WriteLn('Тело - №',n,' это ',Figures[n])
end.