Написать программу для решения следующей задачи: учебным заведением был приобретен стол за S руб. Его амортизация составляет

var stoimost, i : integer;Stoimoststola, a : real;beginwriteln(\'Введите стоимость стола:\');readln(Stoimoststola);writeln(\'Введите количество лет:\');readln(years);s:=0;for i:=1 to years dobegina:=Stoimoststola*0.12;a:=Stoimoststola-a;Stoimoststola:=a;Writeln(\'Стоимость стола на конец \', i, \' года \', a, \'рублей\');end;end.