program Previsiones;
{ Este programa obtiene una tabla de depreciaciones acumuladas
y valores reales de cada año de un determinado producto. }
var
coste,
depreciacion,
valor_recuperacion,
valor_actual,
acumulada,
anio, vida_util : integer;
begin
WriteLn ('Introduzca coste, valor recuperacion y vida util');
ReadLn (coste, valor_recuperacion, vida_util);
WriteLn ('Introduzca anio actual');
ReadLn (anio);
valor_actual := coste;
depreciacion := (coste - valor_recuperacion) div vida_util; (*Aqui tienes que ocupar la funcion div, no /, ya que trabajas con numeros enteros*)
acumulada := 0;
Write ('Anio': 7, 'Depreciacion':15, 'Dep. Acumulada':17); (* Si aca quieres poner las variables, pues quitale las ' ' *)
WriteLn ('valor_actual':14); (* Lo mismo que arriba*)
while anio < vida_util do
begin
acumulada := acumulada + depreciacion;
valor_actual := valor_actual - depreciacion;
Write (Anio :8, Depreciacion :11:1, Acumulada:17:1);
WriteLn (valor_actual:17:1); (*Estos resultados nunca te daran comas, recuerda que las variables las configuraste en integer*)
anio := anio + 1