Дан диаметр окружности. Найти радиус. В Pascal ABC

Question

Дан диаметр окружности. Найти радиус. В Pascal ABC

Answer 1

Program zadacha1;
var d,r:real;
begin
write('введите диаметр окружности');
readln(d);
r:=d/2;
writeln(r);
end.