Nie wiem jak zapisać to żeby działało....
program funkcje_trygonometryczne;
uses crt;
var a,b,c,odp,sin,cos:longint;
begin
clrscr;
writeln('Trygonometria - sinus, cosinus, tangens, cotangens');
writeln('Wprowadz dlugosci: przyprostokatnej przeciwleglej - a');
writeln(' przyprostokatnej przyleglej - b');
writeln(' przeciwprostokatnej - c');
readln(a,b,c);
repeat
writeln('Co chcesz obliczyc sin-1, cos-2, tg-3 czy ctg-4 ? 0-wyjscie ');
readln(odp);
case odp of
1:writeln('Sinus', a/c);
2:writeln('Cosinus', b/c);
3:writeln('Tangens', a/b);
4:writeln('Cotangens', b/a);
end;
until odp=0;
Writeln('Wyliczenie sinusa');
writeln('Podaj sinus');
readln(sin);
writeln(sin*sin+cos*cos=1);
if sin<>0 then begin
writeln(cos'='SQRT(1-sin*sin));
end;
readkey;
end.