Код на Turbo pascal!!

 const 
  t: array [1 .. 5] of real = (0, pi/6, pi/4, pi/3, pi/5); 
  desc: array [1 .. 5] of string = ('0', 'pi/6', 'pi/4', 'pi/3', 'pi/5'); 
 
var 
  n: integer; 
 
begin 
  WriteLn('Введите число от 1 до 5:'); 
  ReadLn(n); 
  if n in [1 .. 5] then 
  begin 
    WriteLn('t=', desc[n]); 
    WriteLn('tg (', desc[n], ')=', sin(t[n])/cos(t[n]):0:3); 
  end else WriteLn('Неправильный ввод'); 
end.