Арбуз диаметром Д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
else writeln ('Покупаем второй') ;

end.