clear
%Ypologismos tou sunolikou kostous paragelias
%Ean oi monades pwlisis einai panw apo 40 h timh pwlisis einai meiwmeni
%kata 15%
q=input('Pliktrologeiste tis modades pwlisis: ');
p=input('Pliktrologeiste tin timi pwlisis: ');
c=q*p;
if q>40
    c=c*0.85;
end
disp(['To kostos tis paragelias einai: ',num2str(c)]) 