Вы положили N рублей в один из процветающих банков. Ежегодный процент

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 gt;= T then

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

   else if N gt;= K then

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

   else if N gt;= V then

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

   else

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

end.