В магазин привезли 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