Составить программу вычисления значения функции на языке С ++. ">

Это про зайца
Var r,d,s,m,a:real;
Begin;
Write('Введите скорость зайца ');
readln(r);
Write('Введите скорость собаки ');
readln(d);
Write('Введите расстояние до леса ');
readln(s);
Write('Введите расстояние между ними ');
readln(m);
a:=s/r;
if (d*a)>=(m+s) 
then writeln('Собака догонит зайца')
else writeln('Собака не догонит зайца');
end.

Про круг
Var p,d,l:real;
Begin;
Write('Введите периметр квадрата ');
readln(p);
p:=p/4;
Write('Введите лину окружности ');
readln(l);
d:=(l/pi);
if r<=p
then writeln('Круг войдёт в квадрат')
else writeln('Круг не войдёт в квадрат');
end.

Одноранговые сети: В сети присутствует некоторое количество машин, при этом каждая может связаться с любой из других. Каждая из этих машин может посылать запросы другим машинам на предоставление каких-либо ресурсов в пределах этой сети и, таким образом, выступать в роли клиента. Будучи сервером, каждая машина должна быть обрабатывать запросы от других машин в сети, отсылать то, что было за Каждая машина также должна выполнять некоторые вс и административные функции (например, хранить список других известных машин-«соседей» и поддерживать его актуальность). Любой член данной сети не гарантирует свое присутствие на постоянной основе. Он может появляться и исчезать в любой момент времени. Но при достижении определённого критического размера сети наступает такой момент, что в сети одновременно существует множество серверов с одинаковыми функциями. Пример такой сети: I2P, Gnutella2. сеть с использованием отдельного сервера: у такой сети все компьютеры связаны друг с другом через сервер а не напрямую. Для получения какой-либо информации с другого компьютера запрос поступает не на тот компьютер откуда должна быть взята информация а сначала поступает на сервер. Там эта информация обрабатывается, сервер ищет ответ и высылает его обратно.