В магазин привезли X кг картофеля. В первый день продали 1/4 всего картофеля, во второй день - 2/5 остатка. Сколько килограммов картофеля осталось продать? На языке Паскаль надо написать

Var

x, prod1, prod2, ost:real;

begin

Write ('Привезено картофеля, кг: ') ;

Read (x) ;

prod1:=x*1/4; { продано в первый день }

ost:=x-prod1; { остаток от продажи }

prod2:=ost*2/5; { продано во второй день }

ost:=x - (prod1+prod2) ;

Writeln ('Оcталось продать, кг: ', ost)

end.

Примеры

Привезено картофеля, кг: 2540

Оcталось продать, кг: 1143

Привезено картофеля, кг: 743

Оcталось продать, кг: 334.35