1. program 1; - уже неправильно. Нужно хотя-бы program p1 писать
2. Исправь R1=2.5; alfa=pi/6; beta=pi/3;
3. И самое главное. Наверное, стоит писать так writeln('gamma=', gamma);