Арбуз диаметром д1 см стоит на рынке с1 руб за кг,а арбуз диаметром д2 см стоит с2 руб за кг.толщина корки арбуза т мм.составить программу,сообщающую,какой арбуз выгоднее купить.плотность мякоти и корки считать равными.

(Д1 - (С1+Т1)) - (Д2 - (С2 +Т2)).Если > 0, то выгоднее купить первый арбуз
Если < 0, то выгоднее купить второй арбуз

Var
  d1,d2,t,c1,c2,s1,s2: real;
begin
write('Диаметр 1-го арбуза (см): ');
readln(d1);
write('Цена за кг 1-го арбуза: ');
readln(c1);
write('Диаметр 2-го арбуза (см): ');
readln(d2);
write('Цена за кг 2-го арбуза: ');
readln(c2);
write('Толщина корки (мм): ');
readln(t);
t:=t/10;
s1:=c1*power(d1/2,3)/(power((d1/2-t),3)); //стоимость ед.мякоти 1
s2:=c2*power(d2/2,3)/(power((d2/2-t),3)); //стоимость ед.мякоти 2
if s1<s2 then writeln('Покупаем первый')
  else writeln('Покупаем второй');
end.