не могу создать функцию

[ziganurov2011]

Var
R,D:Real;
begin
write('Введите диаметр');
readln(D)
R:=D/2;
writeln(R);
end.

как переделать этот код с помощью использования функции?

[Alex11223]

Куда передать?)
Мб процедура, а не функция?
Ну или функция вместо writeln(r) возвращает то, что получилось.

Кстати, не забудьте, что end.(точка) ставится только в конце самой программы.

[_-Re@l-_]

Alex11223 , ziganurov2011 просил вот это

Function Radius(D : Real) : Real;
Begin
        Radius:=D / 2;
End;

Var
     D : Real;
Begin
        Write('Enter d = ');
        Readln(D);
        Writeln(Radius(D));
End.