Turbo pascal - Program przeliczający stopnie na radiany

Kod źródłowy:

uses crt;{lub wincrt;}

var kat:real;

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

begin
write('Podaj wartość kata w stopniach :');
readln(kat);
writeln('Wartość kata w radianach wynosi : ',radiany(kat):0:4);
readln;
end.