Нужно написать программу на pascal,чтобы она находила радиус окружности.

Var
    d: real;

begin
    write('диаметр окружности = ');
    readln(d);
    writeln(d / 2);
end.