Помогите написать программу в ПАСКАЛЕ!!!! Задано значение sina.Вычислить cosa,tga,ctga,sin2a. Если угол а острый-cos2a.

простая школьная математика:
cosa := sqrt(1 - sqr(sina));
tga := sina / cosa;
ctga := 1 / tga;
sin2a := 2*sina*cosa;
cos2a := sqr(cosa) - sqr(sina);

если будешь выполнять последовательно, а все переменные типа real, все получится.