clear all

disp('To programma auto ypologizei to poso tis etisias aposvesis enos periousiakou stoixeiou me ti methodo tis statheris aposvesis');
KK=input('Pliktrologiste to kostos ktisis:');
YA=input('Pliktrologiste tin upoleimmatiki axia:');
n=input('Pliktrologiste ton arithmo twn etwn diarkeias tis upoleimmatikis zwis:');
disp('Patiste to pliktro Enter gia na upologistei to poso tis etisias aposvesis');
pause
AA=KK-YA; %Aposvestea axia

Straight_line_depreciation=AA/n; %Poso etisias aposvesis

disp(['To poso tis etisias aposvesis einai:',num2str(Straight_line_depreciation)]);
   