Рассчитайте время оборота в сети изображенной на рисунке в exel

Моде́ль (фр. modèle, от лат. modulus — мера, аналог, образец) — отображение, копия, схема, макет, изображение, некоторый материальный или мысленно представляемый объект или явление, замещающий упрощением оригинальный объект или явление, сохраняя только некоторые важные его свойства, например, в процессе познания (созерцания, анализа и синтеза) или конструирования. Другими словами, модель — это объект или явление, аналогичные, то есть, в достаточной степени повторяющие свойства моделируемого объекта или явления (прототипа) , существенные для целей конкретного моделирования, и опускающие несущественные свойства, в которых они могут отличаться от прототипа.

Первая:

Var
A,R:real;
Begin
WriteLn('Введи длину сторону квадрата');
ReadLn(A);
WriteLn('Введи радиус круга');
ReadLn(R);
if Pi*R*R>A*A then WriteLn('Площадь круга больше')
else if Pi*R*R<A*A then WriteLn('Площадь квадрата больше')
else WriteLn('Площади фигур равны');
End.

Вторая:

Var
m1,m2,V1,V2:real;
Begin
Write('m1 = ');ReadLn(m1);
Write('m2 = ');ReadLn(m2);
Write('V1 = ');ReadLn(V1);
Write('V2 = ');ReadLn(V2);
if m1/V1<m2/V2 then WriteLn('Плотность первого тела меньше')
else if m1/V1>m2/V2 then WriteLn('Плотность второго тела меньше')
else WriteLn('Плотности равны')
End.