var p,x,s,k,n: real;
Begin
writeln('Introduceti pretul:');
readln(p);
writeln('Introduceti cantitatea:');
readln(x);
writeln('Introduceti suma detinuta:');
readln(s);
k:=x*p;
n:=s/p;
if (s>=k) then writeln('Suma este suficienta;')
else writeln('Suma nu este sufienta; ' 'Dar puteti procura: ',trunc(n), ' produse' );
End.