Nie działa ;(
program project2;
{$mode objfpc}{$H+}
var
a,b,X,Y,Pi : Real;
begin
Pi:=3.14;
writeln('podaj miare kata w stopniach cosinusa');
readln (a);
writeln('podaj miare kata w stopniach sinus');
readln(b);
X:=(a/180)*Pi;
Y:=(b/180)*Pi;
writeln('wynik wynosi:',ARCTAN(SQRT(SQR(X)*SQR(X)+SQR(Y))/ln(10));
readln;
end.