var
x,y,a,b,c : integer;
begin
writeln ('Яблоки кол-во цена');
readln (x,y);
writeln ('Груши кол-во цена');
readln (a,b);
writeln ('Сумма дене');
readln (c);
x := x * y;
a := a * b;
if (x+a) <= c then <br> writeln ('Хватит, останется:',c-(x+a))
else writeln ('Не хватит:',(x+a)-c);
end.