<span>p:=(a+b+c)/2; это модуль
</span><span>resh(S,p,a,b,c); это пм</span>
1024000/1024/8=125 килобайт в секунду.
2500/125=20 секунд
Ответ будет 1, т.к 0 v 1 или 1 v 1 будет всегда 1.
Если вам нужно составить программу, то вот:
program znanija;
var
r,d: integer;
begin
r := 2;
d := r*2;
writeln('Диаметр окружности = ',d)
end.