var
  firstSide, secondSide, angle: real;
begin
  Write('Введите гипотенузу: ');
  Readln(firstSide);
  Write('Введите угол в градусах: ');
  Readln(angle);
  
  if firstSide <= 0 then
    Write('Неверные данные!')
  else
    begin
      secondSide := firstSide * Cos((angle * Pi) / 180);
      Write('Катет равен ', secondSide:3:2)
    end;
end.