Verified answer

var

 V: Real;

begin

   Write ('Введите сумму вклада: ');

   Readln (V);

   if V = 200000 then

     WriteLn ('Процент дохода равен 13.5% в год')

   else if V >= 350000 then

     WriteLn ('Процент дохода равен 14.2% в год')

   else

     WriteLn ('Процент дохода в год не определен');

end;

// ну вот как-то так... Все, что меньше 200000 или находится между 200000.01 и 349999.99 идет на третью ветку с сообщение о неопределенном проценте. Это если тупо делать по условию задания.