Ответы и объяснения

2014-02-13T11:28:41+04:00
Var a,y: real;
  begin
  write('Введите a: ');
  readln(a);
  if a>30 then y:=sin(a)
  else if a<30 then y:=cos(a)
   else y:=tan(a);
  writeln(y);
end.