Задача на функции с числовым парамертром

[xxxPascalxxx]

Буду очень благодарен если вы поможете мне решить эту задачу.

Нужно описать функцию RadToDeg(R) вещественного типа,находящую величину угла в градусах, если дана его величина R в радианах (R-вещественное число, 0<R<2п).Воспользоваться следующим соотношением: 180*=п радианов. В качастве значения п использовать 3.14. С помощью функции RadToDeg первести из радианов в градусы пять данных углов.

Заранее спасибо.

[pascal65536]

Хм. Какие есть мысли на этот счет?

[Abbatik]

сама функция:

function RadToDeg(r:real):real;
const pi=3.14;
begin
radtodeg:=r*180/pi;
end;

Использование:

...
writeln(radtodeg(pi));{выводит значение "пи" в градусах}
writeln(radtodeg(0));{выводит значение "0" в градусах}
writeln(radtodeg(pi/2));{выводит значение "pi/2" в градусах}
writeln(radtodeg(2*pi));{выводит значение "pi*2" в градусах}
writeln(radtodeg(3*pi/4));{выводит значение "3*пи/4" в градусах}
....

[xxxPascalxxx]

Большое спасибо.