Turbo pascal - Program przeliczający radiany na stopnie

uses crt;{lub wincrt;}

var kat:real;

function stopnie(radiany:real):real;
begin
stopnie:=radiany/PI*180;
end;

begin
write('Podaj wartosc kata w radianach :');
readln(kat);
writeln('Wartosc kata w stopniach wynosi : ',stopnie(kat):0:4);
readln;
end.