Вы положили N рублей в один из процветающих банков. Ежегодный процент прироста вклада составляет 7%. Какое транспортное средство вы сможете приобрести через 10 лет, если велосипед будет стоить V рублей. Поддержанное авто - К руб. Новый авто -Т руб?
Решить в паскале

var

 N, V, K, T: real;

 i: Integer;

begin

   Write ('Сумма вклада: ');

   ReadLn (N);

   Write ('Стоимость велосипеда: ');

   ReadLn (V);

   Write ('Стоимость подержанного авто: ');

   ReadLn (K);

   Write ('Стоимость нового авто: ');

   ReadLn (T);

   for i := 1 to 10 do

     N := N * 1.07;

   Writeln ('Сумма вклада в конце срока = ' + FloatToStr (N));

   if N >= T then

     Writeln ('На эту сумму можно приобрести новое авто.')

   else if N >= K then

     Writeln ('На эту сумму можно приобрести подержанное авто')

   else if N >= V then

     Writeln ('На эту сумму можно приобрести велосипед')

   else

     Writeln ('На эту сумму нельзя приобрести транспортное средство');

end.