lass mich raten,du hast in deiner Main Funktion versucht, eine neue Funktion zu deklarieren. Dann ist der Fehler auch kein Wunder. Die Dekleration muss vor der Implementation erfolgen.
Code:
function Deg2Rad(x : real) : real;
begin
Deg2Rad := x * (pi / 180);
end;
function Rad2Deg(x : real) : real;
begin
Rad2Deg := x * (180 / pi);
end;
...
procedure main();
var a, b, c, winkel: real;
begin
//einlesen
...
//verarbeiten
b = sqrt(sqr(a) + sqr(c) - 2*a*c*cos(Deg2Rad(Winkel)));
...
//Ausgeben
end.
BTW: Globale Variablen sind in dem Zusammenhang ein No-Go. Lerne es gleich richtig und erstelle für den ganzen Kleinscheiß
lokale Variablen (dekleration erfolgt in der jeweiligen Prozedur/Funktion). Be Globalen Vars kommst du nur durcheinander und sie können leichter kompromittiert werden, besonders, wenn du die Werte an anderen Stellen verwendest.